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CHAPTER  1 


INTRODUCTION 


This  document  is  the  Software  Documentat ion  for  the 
Performance  Model  Computer  Program  TROPO.  The  program 
predictions  and  modem  performance  predictions  based  on 
in  the  Final  Report. 


Digital  Troposcatter 
performs  proposition 
the  modpls  described 


1*1  Report,  organization 


The  report  is  organized  into  ten  chapters  documenting  each  of  the  TROPO 
subprograms  grouped  according  to  the  types  of  calculations  they  perform  and 
four  appendices  containing  cross-reference  information  about  TROPO  and  its  output. 

Chapter  2.  b river,  describes  the  driver  for  the  TROPO  program  and  includes 
a  top  level  flowchart  of  TROPO. 

Chapter  3.  Input,  describes  the  routines  that  input  data  and  do  preliminary 
calculations  and  output  of  the  input  variables. 

Chapter  4.  Error  Utilities,  describes  the  preliminary  data  checking  and 
error  handling  routines. 

Chapter  5.  Troposcatter  Calculations,  describes  thp  routines  performing 

troposcatter  calculations. 

Chapter  6.  Diffraction  Calculations,  describes  the  routines  performing 

diffraction  calculations. 

Chapter  '7.  Climate  Variability  Calculations,  describes  the  routines 

performing  climate  calculations. 

Chapter  8.  Butterworth  Filter  Calculations,  describes  the  routines 

performing  filter  calculations. 

Chapter  V.  MD-918  Modem  Calculations,  describes  the  routines  performing 

calculations  for  the  MD-918  modem. 

Chapter  10.  AN/TRC-170  and  PAR  Modem  calculations,  describes  the  routines 
performing  calculations  for  the  AN/rRC-1/0  and  DAR  modpm  calculations. 

Chapter  11.  Final  output,  describes  the  routine  that  outputs  SUHPAG.OUl  end 
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the  routine  that  outputs  the  simulator  tap  values. 

Appendix  A*  PDP  Related  Information*  is  for  users  running  the  POP  version 
of  TROPO.  It  cross-references  information  about  the  various  files  in  three 
subsections. 

1)  Subprogram  /  Module  Reference  Index!  This  lists  each  subprogram 
name  alphabetically  followed  by  the  file  it  is  in. 

2)  Module  /  Subprogram  Reference  Index*  This  lists  each  file  name 
alphabetically  followed  by  the  subprograms  it  contains. 

3)  Common  /  Include  File  Reference  Index*  This  lists  each  common 
name  alphabetically  followed  by  the  include  file  it  is  in. 


Appendix  P*  Call  Cross-Reference*  lists  which  TROPO  routines  and  Fortran 
functions  each  subprogram  calls  as  well  as  which  has  called  the  subprogram. 

Appendix  C*  Global  Variable  Dictionary*  defines  each  global  variable* 
identifies  its  type  and  the  common  it  is  contained  in.  In  addition*  below  each 
variable  is  a  list  of  which  subprograms  have  used  it  and  which  have  given  it  a 
new  value. 

Appendix  D*  Output  Variables*  defines  each  variable  output  to  the  output 
files  F0R002.DAT  and  SUMPAG.OUT. 

The  index  alphabetically  lists  each  subprogram  and  the  page  it  is  described 
on . 


1.2  Documentation  Structure 


The  documentation  in  chapters  2  through  11  has  been  divided  into  ten  major 
functions ! 

1)  Driver 

2)  Data  input 

3)  Data  checking 

4)  Troeoscatter  calculations 

5)  Diffraction  calculations 

6)  Climate  variability  calculations 

7)  Putterworth  filter  calculations 

8)  MO-918  modem  calculations 

9)  AN/TRC-170  and  DAR  modem  calculations 

10)  Final  output 

Each  subprogram  falls  into  at  least  one  of  these  sections.  In  some  cases*  a 
routine  is  used  by  more  than  one  section.  So*  if  a  routine  is  not  in  the 
section  you  expect*  the  index  can  Quickly  direct  you  to  the  right  page. 


ICTION 


Pase  1-3 


Each  subprogram  description  follows  the  sake  fork? 

1)  Subprogram  name!  Subroutine  or  function  followed 

by  the  name  of  the  routine> 

This  does  not  include  calling 
arguments 

2)  Purpose!  Describes  the  function  the 

routine  perforks. 

*  3)  Descriptions  This  is  a  kore  extensive 

description  of  the  routine's 
function.  Also  describes  coding 
conventions  that  you  should  be 
aware  of*  overall  coding 
structure*  etc. 

*  4)  Reference*.  Lists  outside  reference  works 

usually  giving  a  background  for 
and  a  gore  in-depth  description 
of  the  eouations  used  in  the 
code. 

5)  Calling  seouence!  Variables  used  in  calling  the 

subproSrae . 

6)  Contained  in  The  nake  of  the  source  file  the 

module;  subprogram  can  be  found  in. 

7)  Called  by*.  Lists  which  routines  call  this 

one . 

8)  Calls!  List  which  routines  this  one 

calls.  It  does  not  include 
systek  routines  such  as  SIN  and 
SORT  or  statement  functions. 
Appendix  B  gives  a  full  listing. 

9)  Input  arguments:  All  values  passed  to  the  routine 

through  the  calling  arguments. 
This  list  may  overlap  the  output 
arguments  since  some  variables 
may  be  used  for  both  input  and 
output . 

10)  Output  arguments!  All  values  output  from  the 

routine  through  the  calling 
arguments . 

t  11)  Global  variables  All  global  variables  used  by  the 
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TSEP<3)  /IODATA/  RI4  IODATA.INC 

Separation  between  transmit  antennas  in  *eters. 

URH(NR)  /PATHGE/  R*4  TROCOM.INC 

Array  of  receive  antennas  horizontal  offsets  fro* 
great  circle  plane  in  •eters. 

URL ( NR )  /PATHGE/  R*4  TROCOM.INC 

Array  of  receive  antennas  lonaitudinal  offsets  in 
•  eters . 

URV(NR)  /PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  vertical  offsets  in  Raters. 

UTH(NT)  /PATHGE/  R*4  TR0C0H.1NC 

Array  of  transmit  antennas  horizontal  offsets  in 
■eters . 

UTL(NT)  /PATHGE/  R*4  TROCUM.INC 

Array  of  transmit  antennas  longitudinal  offsets  in 
■eters . 

UTV(NT)  /PATHGE/  R*4  TROCOH.INC 

Array  of  transmit  antennas  vertical  offsets  in  •eters. 
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PI  /CONSTA/  R*4  CONSTANTS! INC 

Constant  Pi  =  3.141592A54. 

UANGLE  /UNIT/  R*4  IODATA . INC 

Units  of  anale  (dea*  arad). 

UFREQ  /UNIT/  R*4  IODATA. INC 

Units  of  freauency  (GHz*  HHz). 

UNITE  /UNIT/  R*4  IODAIA. INC 

Units  of  heiaht  and  diaeev'r  (ft*  a). 

Global  variables  output  to  coaaon! 

AR(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  antenna  diaaeters  in  aeters.  AR(1) 
is  eauivalent  to  RD1AH  in  the  input  file. 

AT(NTNX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  transaitter  antenna  diaaeters  in  aeters. 

AT ( 1 )  is  eauivalent  to  TDIAH  in  the  input  file. 

IBR(NRHX.NRHX)  /SYSTRN/  1*2  TROCOH.INC 

Channel  coaplex-enveloee  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  only 

2  =  Power  (correlation)  per  unit  delay 

spectrua  calculation 

IPOLR(NRHX)  /ANTENN/  1*2  TROCOH.INC 

Array  of  receiver  antenna  polarizations. 

IPOLT(NTHX)  /ANTENN/  1*2  TROCOH.INC 

Array  of  transaitter  antenna  polarizations. 

NR  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  receive  ports. 

NT  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  transait  ports. 

PHDIV  /HC0H4/  R*4  HCOH.INC 

Sauint  anale  between  upper  and  lower  receiver  beaas  in 
radians.  Default  is  beaawidth. 

PSIRAO(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beaa  aziauths  in  radians. 

PSIREO(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beaa  boresiflht  elevations  above 
radio  horizon  in  radians*  ie*  anale  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  aain  receive  antenna. 

PSITAO(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  transaitter  beaa  aziauths  in  radians. 

PSITEO(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  transaitter  beaa  boresiaht  elevations  above 
radio  horizon  in  radians*  ie*  anale  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITF.O(l) 
is  the  aain  transait  antenna. 

RSEP(3)  /IODATA/  R*4  IODATA. INC 

Separation  between  receive  antennas. 
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3.1  ANTGEO 

Subprogram  name'.  Subroutine  ANTGEO 

Purpose}  Compute  antenna  geometry  parameters  for  chosen  diversity 

conf iSuration  (DIMTYP). 

Calling  seauence! 

CALL  ANTGEO  (BUR*  BUI >  HR*  HT) 

Contained  in  module*  ANTGEO 

Called  by*.  INDATA 

Calls:  NONE 

Input  arguments: 

HR  R*4  Receiver  antenna  height  above  ground. 

HT  RM  Transmitter  antenna  height  above  ground. 

Output  arguments! 

BUR  RM  Receiver  antenna  beamwidth  in  degrees. 

BUT  RM  Transmitter  antenna  beamwidth  in  degrees. 

Global  variables  input  from  common: 

ACALC  /IODATA/  LM  IODATA.INC 

TRUE  if  the  angles  PSITEO  and  PSIREO  are  calculated 
rather  than  read  in. 

CMTPFT  /CONSTA/  RM  CONSTANTS .  INC 

Meters  per  foot  =  0.3048. 

DIVTYP  /MC0M2/  1*2  MC0M.1NC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas!  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna!  2A  2F  2F/2A 

2=2  transmit* 

2  receive  antennas!  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freouency  A  =  Angle  P  =  Polarization 
F  /SYSTRN/  RM  TR0C0M.1NC 

Operating  freouency  in  Hz.  Model  is  accurate  between 
100MHz  and  10GHz . 


LERR 

/LUNS/ 

Error  output 

1*2 

unit. 

LUNS. INC 

MET 

/UNIT/ 

R*4 

IODATA.INC 

String 

'met  ' 

for  units 

output. 

MHZ 

/UNIT/ 

RM 

IODATA.INC 

String 

'MHz  ' 

for  units 

output. 

MRADNS 

/UNIT/ 

RM 

IODATA.INC 

String 

'mrad' 

for  units 

output . 

CHAPTER  3 
INPUT 


This  section  describes  the  initial  data  handling  routines' 


User's  Manual 

Ns»e  Description  section 


ANTGEO  Antenna  geometry  .  ,  NA 

ERRIO  I/O  Error  Message  output  .  ,  .  2.3*  3*4.3 

INOATA  Data  input . 2.2*  3.2 

OUTDAT  Output  suaaarw  of  input-  data  «  3.4.1 

SECTOR  Sector  search  .  NA 

UNITCV  Units  conversion  .  2,2 

UNITS  Units  decoding/encoding  .  ,  .  ,  NA 


The  aain  routine  for  this  section  is  INDATA. 

All  data  input  to  TROPO  comps  froM  the  input  file*  rRQPO.OAl*  on  unit  LIN. 
A  coMPlete  description  of  this  file  can  be  found  in  the  User's  Manual*  section 
3.2.  OUTDAT  writes  into  the  file  FOR002.DAT  on  unit  LOUT*  which  is  described  in 
section  3.4.1  of  the  User's  Manual. 


NOTE 

In  Most  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eauations  as  well  as  the  theory  behind  thea.  NA  denotes  routines  that 
are  prograaaing  utilities  such  as  finding  indices*  setting  pointers* 
etc. 
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Control  indicator  for  entry  or  calculation  of 
transait/receive  radio  horizon  angles  TKET  and  FHER. 
Values  have  following  meanings) 

0  =  Use  input  TH£T»  THER  as  reference  and 
actual  horizon  (default)* 

1  =  Calculate  reference  horizon  using  HORANG 

and  K  eauals  1.33.  (Assuming  Dt.T  and  DLR 
are  non-zero.)  (Option  not  available.) 

2  =  Calculate  reference  horizon  using  HORANG 

and  K  eauals  ERF  AC.  (Assuains  OLT  and  DI.R 
are  non-zero. ) 

3  =  Do  not  change  reference  horizons  froa 

previous  run.  (Option  not  available.) 

SEAN  /PROPAR/  R*4  TROCOH.INC 

hiniaua  monthly  median  of  refractivity  at  sea  level. 
Used  to  calculate  ERFAC  if  non-zero. 
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For  D1VTYP  =  2J 

Q( . » 1 )  Power  on  path  1  (lower  beak)  vs.  delay. 

Q(.»2)  Correlation  between  conversant  paths 
(lower  beak)  vs.  delay. 

Q(,»3)  Correlation  between  diverSent  paths 
(lower  beae)  vs.  delaw. 

Q{,»4)  Correlation  between  parallel  paths 
(lower  beae)  vs.  delaw. 

G(,»5)  Correlation  between  crossins  paths 
(lower  beak)  vs.  delaw. 

Q(.»6)  Power  on  path  of  upper  beak  vs.  delaw. 

G< . » 7)  Power  on  diffraction  path  vs.  delaw. 

STSNR  /SUMP/  R*4  SUMP. INC 

Standard  deviation  of  troposcatter  sisnal  lons-terk 
SNR  distribution  in  dB. 

TAPW  /MC0M4/  R*4  MCOM.INC 

Noraalized  tapwidth  for  MO-918.  Default  is  .5. 

RanSe  is  0.25  through  1.0 

TEMPA(NCORMX)  /PDATA/  RM  PDA  T A. INC 

Arraw  of  average  troposcatter  signal  delaws  for  each 
beak  relative  to  straight  line  in  seconds. 

TERFAC(3)  /ERAB/  R*4  ERAD.INC 

The  three  values  of  ERFAC  when  NDIST  is  1. 

THER  /PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  receive  site  in 
radians. 

THET  /PA1HGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  transait  site  in 
radians. 

T0DAY(9)  /TSTAMP/  L*1  IODATA.INC 

Arraw  used  in  PDP-11  version  to  hold  date  as 
characters. 

Global  variables  output  to  cokkon! 

DELPBZ  /RZ1/  R*4 

Resolution  of  a  delaw  cell  in  seconds.  Sake  as  DELPB 
in  /PDATA/. 

DELTAR(NRMX)  /ANTENN/  RM  TROCOM.INC 

3d6  half-beaawidth  of  each  receive  antenna  in  radians. 

DELTAT (NTMX)  /ANTENN/  R*4  TROCOM.INC 

3d8  half-beaewidth  of  each  transkit  antenna  in 
radians. 

ERFAC  /PROPAR/  RM  TROCOM.INC 

Yearlw  eedian  value  of  effective  earth  radius  factor  k 
in  kiloeeters.  Default  is  1.33. 

ORDB(NRMX)  /ANTENN/  R*4  TROCOM.INC 

Gain  of  each  receive  antenna  in  dBi. 

GTDB(NTMX)  /ANTENN/  RM  TROCOM.INC 

Gain  of  each  transeit  antenna  in  dBi. 

ITOFF  /PROPAR/  1*2  TROCOM.INC 
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Prograa  TR0P0 

HODPAT 

/HC0H2/ 

1*2 

HCOH.INC 

Propasation/aodea  flag  to  select  calculation  aode. 
Default  is  1. 

0  =  Propagation  only 

1  =  Propagation  +  HD-918  aodea 

2  =  Propagation  +  AN/TRC-170  or  DAR  node* 

3  =  Propagation  +  user-defined  aodea 

HODSIG  /HC0H2/  1*2  HCOH.INC 

Interference  signal  aodulation  foraat.  Default  is  1. 

0  =  Analog  FOH  /  FH 
1  =  Digital  QPSK 

HRAD  /ERAD/  1*2  ERAD.INC 

Loop  liait  for  HRAD.  Default  is  1. 

(HRAD  is  1  for  HDIST  =  0  and  HRAD  is  3  for  HDIST  =  1). 
NERT  /HC0H2/  1*2  HCOH.INC 

Bit  error  rate  threshold  indicator  for  yearly  fade 
outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  =  For  10**<-3)  only 

2  =  For  10**<-4>  only 

3  =  For  10**<-5)  only 

NOBS  /HC0H2/  1*2  HCOH.INC 

Nuaher  of  diffraction  obstacles.  HpximuB  is  3» 
default  is  1. 

NOW ( 8 )  /TSTAHP/  L*1  IODATA.INC 

Array  used  in  PDP-11/70  version  to  hold  tiae  of  day  as 
characters. 

NR  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  receive  ports. 

NRAD  /ERAD/  2*2  ERAD.INC 

ERFAC  indicator  and  loop  counter.  Default  is  1. 

NT  /SYSTRN/  1*2  TROCOH.INC 

Nuaher  of  transait  Ports. 

G< NDELHX f NCORHX >  /PDATA/  R*4  PDATA. INC 

Hatrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  profiles. 

For  DIVTYP  =  05 

0 ( • » 1 )  Power  on  lower  beaa  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  beaa  vs.  delay, 
u ( .  r  3 )  Correlation  between  lower  beaas 
in  antennas  1  l  2  vs.  delay. 

0< . .4)  Power  on  upper  beaa  vs.  delay. 

Q(.»7)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  =  15 

0 ( •  1 1 )  Power  on  lower  beaa  vs.  delay. 

Q(.r?)  Correlation  between  lower  and 
upper  beaa  vs.  delay. 

0(.»3)  Power  on  upper  beaa  vs.  delay 
G(.t7>  Power  on  diffraction  path  vs.  delay. 
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A 

AA 

BW 

D 


DEL 


DELPB 

DL(3) 


DRATE 
DS  ( 3 ) 


EOF 

F 


HL(3) 


HRN 

HTH 

IBM 


LOUT 

HDIST 


/PATH6E/  RM  TROCOH. INC 

Effective  earth  radius  in  aeters. 

/PROPAR/  RM  TROCOH. INC 

Ataospheric  absorption  loss  in  dB. 

/SYSTRN/  RI4  TROCOH. INC 

Bandwidth  in  Hertz.  Default  is  7  HHz. 

/PATHGE/  R*4  TROCOH. INC 

Great  circle  distance  between  transaitter  and  receiver 
aeasured  at  sea  level  in  aeters. 

/SUHP/  RM  CURVE.  INC 

Diffraction  path  delay  relative  to  a  straight  line 

path  in  seconds. 

/PDATA/  RM  PDATA. INC 

Resolution  of  a  delaw  cell  in  seconds. 

/HC0M4/  RM  HCOH.INC 

Array  containing  distance  froa  each  obstacle  to 

transaitter  in  aeters. 

/HC0N4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.AE6. 

/HC0H4/  RM  HCOH.INC 

Array  of  effective  obstacle  extents  along  the  great 
circle  path  in  aeters. 

/CONTRL/  LM  TROCOH.  INC 

End  of  TR0P0.DAT  file  found  if  TRUE. 

/SYSTRN/  RI4  TROCOH. INC 

Operating  freauency  in  Hz.  Hodel  is  accurate  between 
lOOHHz  and  106Hz. 

/HC0N4/  RM  HCOH.INC 

Array  containing  elevation  of  each  obstacle  above  sea 
level  in  aeters.  HL(1)  is  elevation  of  transaitter 
radio  horizon  HLT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  HLR. 

/PATHGE/  RM  TROCOH.  INC 

Receive  antenna  height  above  sea  level  in  aeters. 

/PATHGE/  RM  TROCOH.  INC 

Transait  antenna  height  above  sea  level  in  aeters. 

/HC0H2/  1*2  HCOH.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  *  No  RF  filtering 

1  =  Filter  deterained  froa  99%  bandwidth  constraint 

2  =  Filter  chosen  to  aeet  FCC  Hask.  (KCC-19311) 

3  =  Filters  are  user  specified 

/LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  nuaber. 

/ERAD/  1*2  ERAD.INC 

Hultipath  distribution  indicator. 

0  =  Only  aedian  aultipath  spread  used(default> 
1  =  Hultipath  distribution  used.  (Option  not 
currently  available.) 
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2 . 1  TROPO 

Progra*  naae!  Pr osraa  TROPO 

Purpose!  To  predict  single  link  digital  troposcatter  coaaunications 
systea  perforaance  for  freouencies  between  100  Hhz  and  10  Ghz. 

Description!  The  routines  in  TROPO  can  be  grouped  into  eight  aaJor 
functions! 

1)  Data  input  and  unit  conversion!  INDATA. 

2)  Data  checkins  and  error  handling!  CROAT . 

3)  Troposcatter  propagation  calculations!  A1H0S*  TRANSF » 
ANTPAR.  INfllM*  LTCORR.  LOOPS  and  POKER. 

4)  Diffraction  propagation  calculations!  MDIF  and  PIFSNR. 

5)  Transaitter  and  receiver  filter  calculations!  BUTFIL. 

6)  HD-918  aodea  perforaance  calculations!  HDTS. 

7)  AN/TRC-170  and  DAR  aodea  perforaance  calculations!  fRCIN. 

8)  Suaaary  page  output!  SUHPA6. 

The  prograa  can  perfora  one  of  the  following  functions  for  each  run! 

1)  Troposcatter  calculations  only 

2)  Troposcatter  and  diffraction  calculations 

3)  Troposcatter  and  interference  calculations 
A)  Propagation  (one  of  above  3)  +  HD-918  aodea 

5)  Propagation  +  AN/TRC-170  or  DAR  aodea 

6)  Propagation  +  user  defined  aodea 


The  input  files  used  are! 


Unit  no. 

File  naae 

Description 

LIN  =  1 

TROPO. DAT 

The  input  file. 

The  output  files 

used  are! 

LOUT  =  2 

LERR  =  2 

LDEBUG  =  2 

LSUH  =  3 

LTERH  *  A 

F0R002.DAT 

FQR002.DAT 

F0R002.DAT 

SUHPAG.OUT 

Cuser's  terainal> 

The  output  file. 

The  error  output  file. 

The  (debug)  output  file. 

The  suaaary  page  file. 

Error  aessages. 

CALL  TROPO 

Contained  in  aodule! 

TROPO 

Calls! 

ANTPAR  ATHOS 
HD1F  HD1S 

BUTFIL  CHKDAT 
POKER  SUHPAG 

DIFSNR 

TRANSF 

INDATA  INTL1H  LOOPS  LTCORR 
'fRCIN 

Global  variables  input  froa  coaaon 


CHAPTER  2 


DRIVER 


This  section  describes  the  driver  for  the  TROPO  prodraa.  Fisure  2-1  is  a 
top  level  flowchart  of  the  TROPO  prodraa  at  a  functional  level.  In  aost  cases 
the  blocks  correspond  to  one  or  aore  subprograms.  The  test  blocks  (diaaonds>» 
except  for  ’Any  Fatal  Errors' t  correspond  to  logical  branches  which  are  decided 
by  the  user's  choices  of  input  data. 


POP  version 


IBM  version 


Affects  (among  others) 


PARAMETER  Actual  numbers  used  TROPAR.INC*  TROCOM.INC 

and  PATAIN1 1 .FIN 

INCLUDE  Commons  already  Any  routine  accessing  a 

included  coaeon 

BYTE  LQ6ICAL*1  data  type  Various  routines 

Leading  tab  5  or  6  spaces  All  routines 

Blank  lines  'C'  before  line  All  routines 

Separate  All  sources  in  1  file  NA 

source  files 

DATE  and  TIME  No  date  and  tiee  for  TROPO*  OUTPAT *  and  SUMPAG 

output 

No  RETURN  in  RETURN  at  end  DATAINI1.FTN 

block  data 


Certain  FORTRAN  compromises  have  been  made  in  the  code  to  satisfy 
FORTRAN-H  Extended  which  are  acceptable  to*  though  not  optimal  for* 
FORTRAN-IV  PLUS! 

1)  IBM  does  not  allow  INTEGER*2  variables  as  arguments  to  FORTRAN 
functions  which  rectuire  integer  arguments  so  that  [NTKGER*4 
variables  have  been  used  as  arguments  in  such  cases. 

2)  The  functions  of  MIN  and  MAX  have  been  re-coded  in  some 
cases  as  an  alternative  to  such  FORTRAN  function  calls* 

3)  The  logical  unit  numbers*  LOUT*  LIN*  etc.*  are  INTEGERM. 

4)  The  variables  in  common  are  listed  in  decreasing  storage  size. 

5)  Data  for  each  common  is  initialized  in  block  data  only. 

6)  Quoted  literals  are  only  used  in  data  statements. 

7)  Arithmetic  expressions  were  not  used  in  WRITES*  6010s  and  DO  loops 

8)  Logical  variables  are  LOGICAL*!  or  L0GICAL*4  rather  than  LOGICAL*!' 
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The  error  output  file*  logical  unit  LERR*  is  assigned  the  same  unit  number 
as  the  output  file.  This  can  he  changed  to  a  unioue  nuaber  so  that  the  errors 
are  written  to  a  separate  file*  Note  that  for  the  PDP  version  this  would  also 
involve  changing  the  task  build  coeaand  file  to  increase  the  nueber  of  active 
files  (ACTFIL  =  )  and  the  largest  LUN  accessed  (UNITS  =  ).  Your  system  eanual 
will  have  more  information  on  this.  Re  aware  that  this  will  also  increase  the 
size  of  the  task. 

Logical  unit  LSUM  is  explicitly  assigned  to  the  file  SUMPAG.DUT  by  the  OPEN 
statement  in  subroutine  SUMPAG. 

Output  to  the  terminal  is  done  on  logical  unit  LTFRH  which  has  been  set  to 
4.  The  default  for  the  terminal  is  5  but  in  order  to  reduce  task  size  it  has 
been  assigned  to  unit  4  in  the  task  build  command  file.  Note  that  this 
assignment  can  be  changed  to  the  system  disk  if  TROPO  is  to  be  run  in  background 
and  as  such  cannot  access  the  terminal.  If  the  disk  is  used*  a  file* 
F0R004.DAT*  will  be  opened  for  the  error  messages  normally  sent  to  the  terminal. 
Another  option  is  to  set  LTF.RH  to  the  same  value  as  LERR  in  the  block  data 
section  to  have  the  messages  in  the  same  file. 


1.5  PDP  and  IBM  coding  differences 


Throughout  this  document  PDP  and  IBM  refer  to  versions  of  the  program  and 
not  necessarily  the  computer  it  is  running  on.  The  PDP  version  was  written 
using  many  of  the  features  of  PDP  Fortran  that  allow  SIGNATRON  to  revise  the 
program  easily.  The  IBH  version  is  more  universal  since  it  is  closer  to  ANSI 
Fortran*  which  allows  it  to  run  on  other  systems  with  fewer  modifications.  The 
following  features  are  different  in  the  source  codes  of  the  two  versions! 
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input  fro*  coaaon.  routine  but  not  given  a  new 

value • 


*  12)  Global  variables 

output  to  coaaon 5 


All  global  variables  possibly 
given  a  new  value  by  the 
routine. 


All  sections  of  the  description*  except  those  aarked  by  a  '*'►  are  always 
present  in  all  routine  descriptions  whether  data  follows  the  section  or  not. 


1*3  Fortran  IV— PLUS 


TROPO  is  written  in  Fortran  IV-PLUS*  therefore*  it  is  necessary  that  the 
prograa  link  to  the  fortran  IV-PLUS  library.  Though  it  is  possible  to  coapile 
and  run  under  Fortan-77*  the  output  is  not  guaranteed  since  Fortran-77  is  not  a 
strict  superset  of  Fortran  IV-PLIIS  and  the  differences  in  the  versions  aay  change 
the  results. 


1*4  In^ut  and  output  unite 


The  logical  units  the  TROPO  prograa  reads  froa  and  writes  to  files  whose 
associated  logical  unit  nuabers  are  variables  passed  through  the  coaaon  /LUNS/ 
in  file  LUNS. INC.  The  values  are  set  in  the  block  data  section  tol 


Naae 

LUN 

Purpose 

File  naae 

LIN 

1 

Input  file 

TROPO. DAT 

LOUT 

2 

Output  file 

F0R002.DAT 

LDE8UG 

2 

Output  file 

F0R002.DAT 

LERR 

2 

Error  file 

F0R002.DAT 

LSUM 

3 

Suaaary  page 

SUHPA6.0UT 

LTERM 

4 

Error  aessages 

Cuser's  ter*inal> 

Logical  unit  LIN  is  explicitly  assigned  to  the  file  TR0P0.DAT  by  the  OPEN 
stateaent  in  subroutine  INDATA. 

LOUT  is  iaplicitly  assigned  to  the  file  FGR002.DAT.  The  PDP-11/70  will 
assign  the  default  naae  FOROOn.DAT  to  any  file  written  to  or  read  froa  on 
logical  unit  n  which  has  not  been  opened  previous  to  the  read  or  write. 

LDCBUG  is  always  assigned  to  the  output  file  and  is  present  only  to 
distinguish  debug  write  stateaents  fro*  output  write  stateaents. 
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3.2  ERRIO 

Subprogram  name*  Subroutine  ERRIO 

Purpose!  Outputs  error  number  and  error  message  to  terminal  (unit 
LTERM)  and  the  output  file  F0R002.DAT  (unit  LOUT). 

Description!  Checking  for  input  errors  is  done  throughout  TROPO  but  the 
messages  written  from  this  routine  are  for  initial  testing  done  in 
the  input  routines*  INDATA*  SECTOR*  and  UNITS.  When  a  fatal  error  or 
data  inconsistency  is  found*  processing  transfers  to  this  subroutine, 
host  errors  found  are  fatal  so  processing  branches  to  line  500  to  STOP 
after  outputting  the  message*  others  are  merely  warnings  and  branch  to 
600  to  return  to  the  calling  program  and  continue  processing. 

The  errors  are  divided  in  the  source  code  by  calling  routine  so  a 
check  of  the  code  or  FORMAT  statements  reveals  in  which  routine  the 
error  was  encountered. 

Note  that  for  all  error  999s  the  calling  program  has  already 
printed  an  error  message  to  the  output  file  F0R002.DAT  before  calling 
ERRIO. 

Calling  seouence! 

CALL  ERRIO  (I) 

Contained  in  module!  ERRIO 

Called  by!  INDATA  SECTOR  UNITS 

Calls!  NONE 

Input  arguments! 

I  1*2  Error  number. 

Output  arguments! 

NONE 

Global  variables  input  from  common! 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 


i 


I 
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3.3  INDATA 

Subprograa  nsae!  Subroutine  INDATA 

Purpose*  This  subroutine  reads  the  data  reouired  for  TROPO  calculations 
froa  the  input  file  TR0P0.DAT. 

Description*  Each  section  in  the  source  code  of  INDATA  is  identified  by 
dashed  lines  around  a  section  header  which  correspond  with  each 
section  in  the  input  file*  TRGP0.DAT. 

There  are  three  types  of  lines  in  the  input  file  TROPU.PAlt 

1)  Sector  header 

2)  Coaaent 

3)  Data 

A  sector  header  identifies  the  beginning  of  each  section*  Before 
INDATA  reads  a  section  of  data*  SECTOR  searches  for  the  sector  header 
by  reading  lines  until  the  first  four  letters  Batch  the  section  wanted* 
This  feature  aakes  the  data  in  each  section  independent  which  is 
necessary  when*  for  exaalpe*  PTYPE  =  0.  In  this  case*  INDATA  reads  in 
all  the  TROPOSCATTER  data.  The  next  section,  DIFFRACTION*  is  only 
needed  for  PTYPE  *  1.  Since  it  contains  data  for  soae  ot  the  sawe 
variables  just  initialized*  in  order  to  preserve  these  values,  SECTOR 
is  called  to  search  for  the  DIFFRACTION  sector  header  which  skips  over 
these  data  lines.  Froa  this  point  INDATA  does  on  to  read  the  diversity 
data* 

A  coaaent  line  describes  the  data  that  should  follow*  divine 
defaults  and  aaxiauas  in  soae  cases*  Each  begins  with  a  '*'  to 
differentiate  these  lines  froa  the  sector  headers.  In  the  code*  the 
stateaent:  READ  (LIN*1005)  skips  over  the  coaaent  lines  in  the  input 
file.  The  nuaber  of  these  reads  corresponds  to  the  nuaber  of  coaaent 
lines  preceding  each  data  line  in  the  input  file. 

Most  data  lines  are  read  in  list-directed.  This  type  of  read  will 
read  digits  into  the  variable  until  a  deliaeter  (space  or  coaaa)  is 
found*  eliainating  the  need  for  data  to  be  lined  up  in  specific 
colunns  as  in  foraatted  input.  The  data  type  is  converted  on  input 
to  the  variable  type  so  that  integers  aay  be  input  for  reals.  Two 
consecutive  coaaas  (or  a  leading  or  trailing  coaaa)  inputs  no  data 
into  the  corresponding  variable*  thus  preserving  its  default  value. 

A  slash  terainates  input  for  all  reaaining  iteas  in  the  input  list* 
also  preserving  their  default  values.  Note*  the  slash  cannot  be  used 
for  logical  or  literal  data. 


Literal  data  is*  in  aost  cases*  read  into  REALM  variables  with  an 
alpha  for eat  descriptor  (of  the  fora  Atwl).  This  will  put  one 
character  into  each  of  the  four  bytes  of  the  real  as  though  it  were  a 
BYTE  (LOGICAL*!)  array  of  length  four. 


INDATA 


CAUTION!  When  adding  new  variables  to  the  input  file>  do  not  insert 
thee  before  the  units  section  <HDU»  ANGU>  etc*)  if  the  data  is  to  be 
converted  by  UNITCV  to  and  froe  MKS  units.  In  subseouent  runs»  the 
call  to  UNITCV  coees  ieeediately  after  these  units  are  deciphered  so 
all  values  in  coeeon  are  treated  as  though  in  MKS  units. 


Calling  seauenceJ 

CALL  INDATA  ( JPOWt ASEPtCLIMAT »BWT tBWR»PTYPE»  JBW.TRCTYP.FJSEP) 
Contained  in  eodule.  INDATA 
Called  byt  TROPO 

Calls:  ANTGEO  ERRIO  OUTDAT  SECTOR  UNITS 

Input  ar.gueents: 

NONE 


Output  argueents: 
JPOW  R*8 

Interference  signal  power  density  in  dBe/Hz. 

ASF.P 

R*4 

Separation  between  receive  antennas  in  eeters, 

CLIMAT 

R*4 

Clieate  zone  indicator. 

BUT 

R*4 

Transeit  antenna  beaewidth  in  degrees, 

BUR 

R*4 

Receive  antenna  beaewidth  in  degrees. 

PTYPE 

1*2 

Variable  which  indicates  whether  propagation 

JBU 

R*8 

eechanise  is  pure  troposcatter  (0  or  10)  or  eixed 
troposcatter-dif fraction  <1  or  11). 

Interfering  signal  bandwidth  in  Hz, 

TRCTYP 

R*4 

TRC-170  eodee  type  indicator: 

FJSEP 

R*4 

0=1  freaueney  DAR  eodee 

1=2  freauencs  AN/TRC-170 

Freaueney  separation  between  desired  signal  and 

interference  signal  in  Hertz. 


Global  variables  input  frog  coeeon: 

AO  /CONSTA/  R*4  CONSTANTS. INC 

Radius  of  the  earth  in  eeters  =  AJ67A50. 

CO  /CONSTA/  R*4  CONSTANTS. INC 

Free  space  velocity  of  radio  waves  =  2.9V8E8  e/sec. 

CMTPFT  /CONSTA/  R*4  CONSTANTS. INC 

Meters  per  foot  *  0.3048. 

GHZ  /UNIT/  R*4  IODATA.INC 

String  'GHz  '  for  units  output. 

KM  /UNIT/  R*4  IODATA.INC 

String  'ke  '  for  units  output. 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

NDIST  /ERAD/  1*2  ERAD.INC 
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MHZ 

UDIST 

UFREQ 

Global  variables 
A 

ACALC 

AR(NRMX) 

AT<NTMX) 

AVERX 

AVETX 

BU 

CHGHR 
CHGHRE 
CHGHT 
CHGHTE 
CN2(NPR0F ) 

CODE 

D 

DELH 

DEMIN 


Multipath  distribution  indicator* 

0  3  Only  aedian  aultipath  spread  used(default) 
1  3  Multipath  distribution  used*  (Option  not 
currently  available*) 

/UNIT/  R*4  IODATA.INC 

String  'MHz  '  for  units  output. 

/UNIT/  R*4  IODATA.INC 

Units  of  distance  (sai?  nai?  ka)» 

/UNIT/  R*4  IODATA.INC 

Units  of  freouency  (GHz»  MHz). 

output  to  coaeon S 

/ PATHGE/  RM  TROCOM.INC 

Effective  earth  radius  in  aeters. 

/IODATA/  L*4  IODATA.INC 

TRUE  if  the  angles  PS1TEO  and  PSIREO  are  calculated 

rather  than  read  in. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  receiver  antenna  diaaeters  in  aeters.  AR(1) 
is  eouivalent  to  RDIAM  in  the  input  file. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  transaitter  antenna  diaaeters  in  aeters. 

AT( 1 )  is  eouivalent  to  TDIAM  in  the  input  file. 

/MCOM4/  R#4  MCOM.INC 

Average  terrain  elevation  above  sea  level  betwepn 

receive  site  and  radio  horizon?  in  aeters. 

/MC0M4/  R*4  MCOM.INC 

Average  terrain  elevation  above  sea  level  between 

transait  site  and  radio  horizon?  in  aeters. 

/SYSTRN/  R*4  TROCOM.INC 

Bandwidth  in  Hertz.  Default  is  7  MHz. 

/IODATA/  l.*4  IODATA.INC 

HR  set  to  AR( 1 )  if  TRUE. 

/IODATA/  L*4  IODATA.INC 

HRE  set  to  HR  if  TRUE. 

/IODATA/  LM  IODATA.INC 

HT  set  to  AT (1 )  if  TRUE. 

/IODATA/  L*4  IODATA.INC 

HTE  set  to  H1  if  TRUE. 

/PROPAR/  RI4  TROCOM.INC 

The  ataospheric  structure  constant  height  profile  in 

aeters  to  the  -2/3  power. 

/MC0M4/  L*4  MCOM.INC 

Flag  for  coding. 

/PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transaitter  and  receiver 
aeasured  at  sea  level  in  aeters* 

/PROPAR/  R*4  TROCOM.INC 

Spacing  of  CN2  saaples  in  aeters. 

/CURVE/  RM  CURVE. INC 
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User  supplied  minima  of  the  90th  percentile 
variability  curve*  Y0(90>* 

/HC0H2/  1*2  HCOH.INC 

Diversity  configuration  indicator*  Default  is  0< 


0=2  receive  antennas*  2S  2S/2F  2S/2A  2 

1=1  receive  antenna*  2A  2F  2F/2A 

2=2  transmit* 

2  receive  antennas*  2S/2P  28/2P/2A 
3  =  Not  used 

A  =  User  supplied  parameters 
S  =  Space  F  =  Freauency  A  =  Andie  P  =  Polarization 
/HC0H4/  R*4  HCOH.INC 

Array  containing  distance  from  each  obstacle  to 
transmitter  in  meters* 


2S/2A  2S/2A/2F 
2F/2A 


/PATH6E/ 


TROCOH. INC 


Distance  from  receiver  to  radio  horizon  in  meters. 
/PATHGE/  R*4  TROCUN.INC 

Distance  from  transmitter  to  radio  horizon  in  meters* 

/HC0H4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

/HC0H4/  R*4  HCOH.INC 

Array  of  effective  obstacle  extents  along  the  great 
circle  path  in  meters. 

/HC0H4/  R*4  HCOH.INC 

Interferer  elevation  angles  in  degrees.  Default  is  0. 
/CONTRL/  1*4  TROCOH. INC 

End  of  TR0P0.DAT  file  found  if  TRUE. 

/PROPAR/  R*4  TROCOH. INC 

Yearly  median  value  of  effective  earth  radius  factor  k 
in  kilometers.  Default  is  1.33. 

/CONTROL/  R»4  TROCOH. INC 

Common  volume  integration  resolution.  Default  is  .001. 
/SYSTRN/  R*4  TROCOH. INC 

Operating  freauency  in  Hz.  Hodel  is  accurate  between 
lOOHHz  and  10GHz. 

/BUTPAR/  R*4  BUTPAR. INC 

Normalized  JdB  cut-off  freauency  of  receiver  filter. 

/BUTPAR/  R*4  BUTPAR. INC 

Normalized  3dB  cut-off  freauency  of  transmitter 

filter. 

/CURVE/  R*4  CURVE. INC 

Freauency  correction  factor  for  user  supplied  90th 

percentile  variability  curve.  Default  is  1. 

/HC0H4/  R*4  HCOH.INC 

Array  containing  NPH(l)  evenly-spaced  terrain 
elevation  data  (in  meters)  between  transmitter  and 
first  obstacle  followed  by  NPH(2>  evenly-spaced 
terrain  elevation  data  between  first  and  second 
obstacle*  etc.*  ending  with  NPH(NOBStl)  evenly-spaced 
terrain  elevation  data  between  last  obstacle  and 
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receive  site*  The  date  should  be  selected  such  that* 

HI(1)  =  Terrain  elevation  above  sea  level  at 
transmit  site  <HT0)» 

HKNPH(I))  =  HI  (NPHUHl)  =  Elevation  of  Ith 
obstacle  above  sea  level  (HL(I>). 

HHNPH(NOBSFl))  =  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  HOTSf  HI  is  used  as  work  space*  It  is  eouivalenced 
to  local  arrass. 

HL ( 3)  /HC0H4/  R*4  HCOH.INC 

Arras  containing  elevation  of  each  obstacle  above  sea 
level  in  eeters.  HL(1)  is  elevation  of  transeitter 
radio  horizon  HLT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  Hl.R. 

HLAV(3)  /MC0M4/  R*4  HCOH.INC 

Arras  containing  average  terrain  elevation  at  each 
diffraction  point  in  eeters. 

HLEF (3)  /HC0H4/  R*4  HCOH.INC 

Arras  containing  effective  height  of  obstacles  above 
average  terrain  elevation  in  eeters. 

HLOW  /PROPAR/  R*4  TROCUH.INC 

Lowest  height  above  sea  level  at  which  CN2  is 
specified  in  eeters. 

HLR  /PATHGE/  R*4  TROCOH.INC 

Receiver  radio  horizon  elevation  above  sea  level  in 
eeters . 

HLT  /PATHGE/  R*4  TROCOH.INC 

Transeit  radio  horizon  elevation  above  sea  level  in 
eeters. 

HRE  /HC0H4/  R*4  HCOH.INC 

Effective  receiver  antenna  height  above  average 
terrain  elevation  in  eeters. 

HRN  /PATHGE/  R*4  TROCOH.INC 

Receive  antenna  height  above  sea  level  in  eeters. 

HTE  /HC0H4/  R*4  HCOH.INC 

Effective  transeitter  antenna  height  above  average 
terrain  elevation  in  eeters. 

HTN  /PAIHGE/  R*4  TROCOH.INC 

Transeit  antenna  height  above  sea  level  in  eeters. 

IBR(NRMX*NRHX)  /SYSTRN/  1*2  TROCOH.INC 

Channel  coeplex-envelope  correlation  and 
cross-correlation  calculation  indicator  arras. 

0  *  No  calculation 

1  =  Power  (correlation)  calculation  onls 

2  *  Power  (correlation)  per  unit  delas 

spectrue  calculation 

IBM  /MC0M2/  1*2  HCOH.INC 

Switch  indicating  tspe  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  *  No  RF  filtering 
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1  =  Filter  determined  from  99 X  bandwidth  constraint 

2  =  Filter  chosen  to  meet  FCC  Hask.  (FCC-19311) 

3  =  Filters  are  user  specified 

ICLIME  /HC0M2/  1*2  HCOH.INC 

Climate  class.  Default  is  0. 

0  =  NBS  TN-101  climate 

1  =  NIL-HDBK-417  climate 

2  =  New  *  user-supplied  climate 

IFILRX  /BUTPAR/  1*2  BUTPAR.INC 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  means 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 

IFILTX  /BUTPAR/  1*2  BUTPAR.INC 

Transmitter  filter  indicator. 

0  =  HD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  *  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eaual  to  half  symbol  duration. 

2  =  (not  allowed) 

IOPEND  /CONTRL/  1*2  TROCOH.INC 

Number  of  output  files  opened. 

IPOLR(NRHX)  /ANTENN/  1*2  TROCDH.INC 

Array  of  receiver  antenna  polarizations. 

IPOLT(NTHX)  /ANTENN/  1*2  TROCOH.INC 

Array  of  transmitter  antenna  polarizations. 

ITOFF  /PROPAR/  1*2  TROCOH.INC 

Control  indicator  for  entry  or  calculation  of 
transmit/receive  radio  horizon  angles  THET  and  THER. 
Values  have  following  meanings* 

0  =  Use  input  THET»  THER  as  reference  and 
actual  horizon  (default). 

1  =  Calculate  reference  horizon  using  HORANG 

and  K  eauals  1.53.  (Assuming  OLT  and  QLR 
are  non-zero.)  (Option  not  available.) 

2  =  Calculate  reference  horizon  using  HORANG 

and  K  eauals  ERFAC.  (Assuming  Dl.T  and  DI.R 
are  non-zero.) 

3  =  Do  not  change  reference  horizons  from 

previous  run.  (Option  not  available.) 
KtIHAT  /PROPAR/  1*2  TROCOH.INC 

Climate  zone  indicator.  Default  is  0. 
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KPROF 

LIN 

LINKNO 

LISI 

LNAHE<20> 

NANG 

MLAST 

MODPAT 


0  =  User  supplied  dilate 
NBS  TNlOl  dilates 

1  =  Continental  teiperate  (CT) 

2  =  Haritiie  teiperate  overland  (HTL) 

3  -  Naritiie  teiperate  oversea  (NTS) 

4  =  Haritiie  subtropical  overland  (NSL) 

5  =  Continental  teiperate  tiie  block  2  < C T 2 ) 

(winter  afternoon  hours)  -  formerly 
Naritiie  subtropical  oversea  (HSS) 

6  =  Desert*  Sahara  <DS> 

7  =  Eouatorial  (EGU) 

8  =  Continental  subtropical  (CS) 

NIL-HDBK-417  dilates 

9  -  Continental  teiperate  (CT) 

10  =  Naritiie  teiperate  overland  (HTL) 

11  =  Haritiie  teiperate  oversea  (NTS) 

12  =  Naritiie  subtropical  (NS) 

13  =  Desert*  Sahara  (DS) 

14  =  Eouatorial  (EOU) 

15  =  Continental  subtropical  (CS) 

16  =  Nediterranean  (NED) 

17  =  Polar  (POL) 

/PROPAR/  1*2  TftOCUH.INC 

Actual  nuiber  ot  saiples  in  height  profile  of 
structure  constant  CN2.  Liiited  to  NPROF  samples. 
/LUNS/  1*2  LUNS. INC 

TR0P0.DAT  input  unit  nuiber. 

/IODATA/  1*2  IODATA.INC 

Link  nuiber. 

/NC0N2/  1*2  NCON.INC 

Nuiber  of  future  Intersvibol  Interference  (ISI) 
contributors  considered  in  HD-918  performance 
calculation.  Default  is  2. 

/IODATA/  1*2  IODATA.INC 

Link  naie.  Transmitter  site  first*  receiver  site 
second.  Used  as  link  identifier  on  output  files 
F0R002.DAT  and  SUHPAG.OUT. 

/HC0H2/  1*2  NCON.INC 

Nuiber  of  values  of  interferer  aziiuth/elevation  pairs 
(JANG)  for  which  outage  calculations  are  to  be  made. 
Default  is  1. 

/PDATA/  1*2  PDATA.INC 

Nuiber  of  simulator  taps.  Default  is  16. 

/HC0H2/  1*2  NCON.INC 

Propasation/iodei  flag  to  select  calculation  mode. 
Default  is  1. 

0  =  Propagation  only 

1  =  Propagation  ♦  NO-918  model 

2  =  Propagation  t  AN/TRC-170  or  DAR  model 

3  =  Propagation  ♦  user-defined  aodei 
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NODSIG 

HRAD 

NACCU 

NANG 

NCLIME 

NERT 


NEUCL(4) 

NFIG 

NOBS 

NPM(5> 

NPOLRX 

NPOLTX 

NR 

NT 

NTERR 


PHDIV 


/HC0H2/  1*2  HCOH.INC 

Interference  signal  Modulation  foreat.  Default  is  1. 

0  =  Analog  FDH  /  FH 
1  =  Digital  QPSK 

/ERAD/  1*2  ERAD.INC 

Loop  lieit  for  HRAD.  Default  is  1. 

(HRAD  is  1  for  HD1ST  =  0  and  HRAD  is  3  for  HDIST  =  1). 
/CONTRL/  1*2  TROCOH. INC 

Paraeeter  used  as  truncation  point  for  coeeon 
voluee  integration  tereination.  Default  is  40. 

/RI2/  1*2  RI2.INC 

NANG  is  1  it  there  is  angle  diversity  (default). 

/HC0H2/  1*2  HCOH.INC 

Flag  set  to  1  if  ICLIHF.  eauals  2. 

/HC0M2/  1*2  HCOH.INC 

Bit  error  rate  threshold  indicator  tor  yearly  fade 
outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  =  For  10**(-3)  only 

2  =  For  10**(-4)  only 

3  =  For  10**(-5>  only 

/HC0H2/  1*2  HCOH.INC 

New  clieate  type  character  string. 

/HC0H4/  R*4  HCOH.INC 

Receiver  noise  figure  in  dB.  Default  is  4dB. 

/HC0H2/  1*2  HCOH.INC 

Nueber  of  diffraction  obstacles.  Haxieue  is  3» 

default  is  1. 

/HC0H2/  1*2  HCOH.INC 

Array  containing  nueber  of  terrain  elevation  data 
points  for  calculation  of  effective  antenna  heights 
for  each  section  of  the  diffraction  path. 

/BUTPAR/  R*4  BUTPAR.INC 

Nueber  of  poles  in  the  receive  Butterworth  filter. 

/BUTPAR/  1*2  BUTPAR.INC 

Nueber  of  poles  in  the  transeit  Butterworth  filter. 

/SYSTRN/  1*2  TROCOH. INC 

Nueber  of  receive  ports. 

/SYSTRN/  1*2  TROCOH. INC 

Nueber  of  transmit  ports. 

/HC0M2/  1*2  HCOH.INC 

Control  parameter  for  entry  or  calculation  of 
effective  antenna  heights  (HTE>  HRE)  and  effective 
obstacle  heights  above  average  terrain  elevation 
(HLEF). 

0  =  HTE  and  HRE  supplied  directly 

1  *  AVETX  and  AVERX  supplied 

2  =  HI ( . )  supplied 

/HC0N4/  R*4  NCDH.INC 

Seuint  angle  between  upper  and  lower  receiver  beaes  in 
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PSIRAO(NRMX) 

PSIREOTNRMX) 


PSITAO(NTMX) 

PSITEO(NTHX) 


PULSE 


PXMIT 

RLL 

RSEP(3) 

SCPARM 

SEAN 

SP 

SPE 

SUPRES 

TAPOUT 

TAPW 

TERFAC<3) 


radians.  Default  is  beaeuidth. 

/ANTENN/  R*4  rROCOH.INC 

Arrau  of  receiver  beaa  aziauths  in  radians. 

/ANTE NN/  R*4  TROCOM.INC 

Array  of  receiver  beae  boresisiht  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  eain  receive  antenna. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  transaitter  beae  azieuths  in  radians. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  transaitter  beaa  boresight  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITEO(l) 
is  the  aain  transait  antenna. 

/RZ/  1*2  RZ.INC 

Switch  controlling  MD-91B  pulse  shape  after 

transaitter-recei ver  filtering. 

PULSE  =  0  Triangle 

=  1  OOPSK  Batched  filter 

=  2  Sine  pulse*  bandwidth  eoual  to  1 
=5  RF  filtering  included 
Set  to  0  if  IBU  »  0  or  KGAIN  >  1. 

Set  to  S  if  IDW  >  0  and  KUAIN  *  1. 

/MC0M4/  R*4  MCOM.INC 

Rated  transaission  power  in  dBa.  Default  is  70dBa. 
/SYS7RN/  R*4  TROCOM.INC 

Receiver  line  losses  in  dB.  Default  is  0  dB. 
/IODATA/  R*4  IODATA.INC 

Separation  between  receive  antennas. 

/PROPAR/  R*4  TROCOM.INC 

Uavenuaber  spectrua  slope  paraaeter  M.  Default  is 

3.66. 

/PROPAR/  R*4  TROCOM.INC 

Miniaua  aonthly  aedian  of  refractivity  at  sea  level. 

Used  to  calculate  ERFAC  if  non-zero. 

/MC0M4/  R*4  MCOM.INC 

Service  probability.  Default  is  .95. 

/PDATA/  R*4  PDATA. INC 

Tap  spacing  in  nanoseconds.  Default  is  67  nsec. 

/IODATA/  L*4  IODATA.INC 

Supress  long  output  in  SUMPAIJ  if  true. 

Set  to  TRUE  if  PTYPE  >  9, 

/PDATA/  L*4  PDATA. INC 

If  true*  the  siaulator  tap  values  are  output  to  the 

output  file*  F0R002.DAT.  Default  is  TRUE. 

/MC0M4/  R*4  MCOM.INC 

Noraalized  tapwidth  for  MD-918.  Default  is  .5. 

Range  is  0.25  through  1.0 
/ERAD/  R*4  ERAD.INC 


% 
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THER 

THET 

TLL 

TSEP(3) 

URH(NR) 

URL(NR) 

URV(NR) 

UTH(NT) 

UTL(NT) 

UTV(NT) 

UAVLEN 

WLT 

XANG (10) 
Y900 


YHIN 


The  three  values  of  ERF AC  when  HDIST  is  1. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  angle  at  receive  site  in 

radians. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  angle  at  transeit  site  in 

radi ans . 

/SYSTRN/  Rt4  TROCOH.INC 

l/anseitter  line  losses  in  dtt.  Default  is  0  dB. 

/IODATA/  R*4  IODATA. INC 

Separation  between  transeit  antennas  in  eeters. 

/PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  horizontal  offsets  froe 

great  circle  plane  in  eeters. 

/PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  longitudinal  offsets  in 

eeters. 

/PATHGE/  RC4  TROCOH.INC 

Array  of  receive  antennas  vertical  offsets  in  eeters. 

/PATHGE/  R*4  TROCOH.INC 

Arras  of  transeit  antennas  horizontal  offsets  in 

eeters. 

/PATHGE/  R*4  TROCOH.INC 

Arras  of  transeit  antennas  longitudinal  offsets  in 

eeters. 

/PATHGE/  R*4  TROCOH.INC 

Arras  of  transeit  antennas  vertical  offsets  in  eeters. 
/SYSTRN/  RI4  TROCOH.INC. 

Wavelength  in  eeters. 

/SYSTRN/  R*4  TROCOH.INC 

Rated  transeission  power  in  Hatts.  Default  is  1000  U. 
/HC0H4/  R*4  HCOH.INC 

Interferer  azieuth  angles  in  degrees.  Default  is  0. 
/CURVE/  R*4  CURVE, INC 

User  supplied  value  for  90th  percentile  variability 
curve  Y0(90)  for  DE  greater  than  or  eaual  900  ke. 

Used  only  when  ICLIHE  is  2.  Used  to  coepute  the 
eouation  for  the  Y0(90)  curve  fit. 

/CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 
curve  Y0(90)  for  DE  eoual  to  DEHIN.  Used  only  when 
ICLIHE  is  2.  Used  to  coepute  the  equation  for  the 
Y0<90)  curve  fit. 
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3.4  OUTDAT 


Subprogram  name!  Subroutine  OUTDAT 

Purpose!  Outputs  to  the  output  file*  F0R002.DAT*  parameters  read  from 
the  input  file  TR0P0.DAT  as  well  as  parameters  calculated  from  these 
in  INDATA*  UNITS  and  ANTGEO . 

Description!  Host  numeric  values  are  printed  with  decimal  points  lined  up. 

To  make  formatting  easier*  the  T  format  is  used  to  place  the  decimal 
point  in  the  57th  position.  The  column  to  tab  to  is  57  -  the  number  of 
integer  places*  ie*  for  an  17  format  tab  to  column  50!  . . . T50*I7. . . . 
Therefore  the  following  formulas  can  he  used  to  calculate  x! 


Integer 

Floating  point 

Exponential 

Exponential 


Iw  or  Iw.m 
Fw.m 
Ew.m 
Ew.mEe 


57  -  w 

57  -  (w  -  (m+1 > ) 

57  -  <w  -  (m+5)  > 

57  -  (w  -  (m+e+3) ) 


where  x  is  the  value  to  use  wherever  Tx  will  be  used. 


Calling  seouence! 

CALL  OUTDAT  (CLIHAT* ASEP*  JP0W*BWT*BNR*HT0*HR0*HT *HR*PTYPE* 
JBUiF JSEP.TRCTYP) 


Contained  in 

module! 

OUTDAT 

Called  by! 

INDATA 

Calls! 

NONE 

Input  arguments! 

CLIMAT 

R*4 

Climate  zone  indicator. 

ASEP 

R*4 

Separation  between  receive  antennas  in  meters. 

JPOU 

R*8 

Interference  signal  power  density  in  dBm/Hz. 

BUT 

R*4 

Transmit  antenna  beamwidth  in  degrees. 

BUR 

R*4 

Receive  antenna  beamwidth  in  degrees. 

HTO 

R*4 

Transmit  site  elevation  above  sea  level. 

HRO 

R*4 

Receive  site  elevation  above  sea  level. 

HT 

R*4 

Transmit  antenna  height  above  ground. 

HR 

R*4 

Receive  antenna  height  above  ground. 

PTYPE 

1*2 

Variable  which  indicates  whether  propagation 
mechanism  is  pure  troposcatter  (0  or  10)  or  mixed 
troposcatter-diff raction  (1  or  11). 

JBU 

R*8 

Interfering  signal  bandwidth  in  Hz. 

FJSEP 

R*4 

Freouency  separation  between  signal  and  interferer 
in  Hz. 

TRCTYP 

R*4 

TRC-170  modem  type  indicator! 

0  =  1  freouency  DAR  modem 

1=2  freouency  AN/TRC-170  modem 


«-•  • 
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Output  arguments! 

NONE 

Global  variables  input  from  common*, 

ACALC  /I0DATA/  LM  IODATA.INC 

TRUE  if  the  angles  PSITEO  and  P8JRE0  are  calculated 
rather  than  read  in. 

AR(NRHX)  /ANTENN/  RM  TROCOH.INC 

Array  of  receiver  antenna  diaaeters  in  aeters.  AR(1) 
is  eouivalent  to  RDIAH  in  the  input  file. 

AT(NTNX)  /ANTENN/  RM  TROCOH.INC 

Array  of  transmitter  antenna  diaaeters  in  aeters. 

AT ( 1 )  is  eouivalent  to  TDIAH  in  the  input  file. 

AVERX  /HC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 
receive  site  and  radio  horizon*  in  aeters. 

AVETX  /MC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 
transmit  site  and  radio  horizon*  in  aeters. 

BU  /SYSTRN/  R*4  TROCOH.INC 

Bandwidth  in  Hertz,  Default  is  7  HHz, 

CHGHR  /IOPATA/  L*4  IODATA.INC 

HR  set  to  AR ( l )  if  TRUE. 

CHGHRE  /IODATA/  L*4  IODATA.INC 

HRE  set  to  HR  if  TRUE. 

CHGHT  /IODATA/  LM  IODATA.INC 

HT  set  to  AT ( 1 )  if  TRUE. 

CHGHTE  /IODATA/  LM  IODATA.INC 

HTE  set  to  HT  if  TRUE. 

CN2(NPR0F )  /PROPAR/  RM  TROCOH.INC 

The  atmospheric  structure  constant  height  profile  in 

aeters  to  the  -2/3  power. 

D  /PATHGE/  RM  TROCOH.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  aeters. 

DEG  /UNIT/  RM  IODATA.INC 

String  'deS  '  for  units  output. 

DELH  /PROPAR/  RM  TROCOH.INC 

Spacing  of  CN2  samples  in  aeters, 

DEHIN  /CURVE/  RM  CURVE.  INC 

User  supplied  ainiac  of  the  90th  percentile 
variability  curve*  Y0(90). 

DIVTYP  /HC0H2/  1*2  HCOH.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas?  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna*  2A  2F  2F/2A 

2=2  transmit* 

2  receive  antennas*  2S/2P  2S/2P/2A 
3  =  Not  used 


IT 

•outine  OUTDAT 


Pase  3-18 


DK3) 

DLR 

DLT 

DRATE 

DS(3) 

ELANG(IO) 

ERFAC 

ERR 

F 

FT 

GHZ 

HI ( 155) 


Hl<3) 

HLAV( 3) 


4  =  User  supplied  parameters 
S  =  Space  F  =  Freouency  A  =  AnSle  P  =  Polarization 
/HC0H4/  R#4  HCOH.INC 

Array  containins  distance  from  each  obstacle  to 
transmitter  in  meters, 

/PATHGE/  R*4  TROCOH.INC 

Distance  from  receiver  to  radio  horizon  in  meters. 

/PATHGE/  R*4  TROCOH.INC 

Distance  from  transmitter  to  radio  horizon  in  meters, 

/MC0H4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

/HC0H4/  R*4  HCOH.INC 

Array  of  effective  obstacle  extents  alone  the  areat 
circle  path  in  meters. 

/HC0H4/  R*4  HCOH.INC 

Interferer  elevation  ansles  in  dearees.  Default  is  0. 
/PROPAR/  R*4  TROCOH.INC 

Yearly  median  value  of  effective  earth  radius  factor  k 
in  kilometers.  Default  is  1.33. 

/CONTROL/  R*4  TROCOH.INC 

Common  volume  intearation  resolution.  Default  is  ,001. 
/SYSTRN/  R*4  TROCOH.INC 

Oeeratina  freouency  in  Hz.  Node)  is  accurate  between 
lOOHHz  and  10GHz . 

/UNIT/  R*4  IODATA. INC 

StrinS  'ft  '  for  units  output. 

/UNIT/  R*4  IODATA. INC 

Strina  'GHz  '  for  units  output. 

/HC0H4/  R*4  HCOH.INC 

Array  containina  NPH(l)  evenly-spaced  terrain 
elevation  data  (in  meters)  between  transmitter  and 
first  obstacle  followed  by  NPH(2)  evenly-spaced 
terrain  elevation  data  between  first  and  second 
obstacle,  etc,.  endinS  with  NPH<N0FS+1>  evenly-spaced 
terrain  elevation  data  between  last  obstacle  and 
receive  site.  The  data  should  be  selected  such  that; 

H I < 1 )  =  Terrain  elevation  above  sea  level  at 
transmit  site  (HTO). 

HI(NPH(D)  =  HI  (NPH(  I )  + 1 )  =  Elevation  of  Ith 
obstacle  above  sea  level  (HL(I>>» 

HI (NPH<N0PS+1 > )  *  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  HDTS.  HI  is  used  as  work  space.  It  is  eeuivalenced 
to  local  arrays. 

/HC0H4/  R*4  HCOH.INC 

Array  containins  elevation  of  each  obstacle  above  sea 
level  in  meters.  HL<1)  is  elevation  of  transmitter 
radio  horizon  HLT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  Hl.R. 

/HC0H4/  R»4  HCOH.INC 


CHAPTER  4 
ERROR  UTILITIES 


This  section  describes  the  data  checkins  and  error  handling  routines* 

User's  Manual 

Name  Description  section 


CHKDAT  Check  data  »•»».». »*«2»2 
ERROR  Error  message  output  .  .  .  .  ,  2.3*  3.4.3 
SUBID  Subprogram  output  identifier  .  NA 

CHKDAT  is  only  a  preliminary  data  checkins  routine.  More  testins  is  done 
throushout  TROPO*  ERROR  being  called  when  a  warning  is  to  be  printed  or  when  a 
fatal  error  has  been  found.  FRROR  writes  oth  to  thp  user's  terminal  and  the 
error  output  file  F0R002.DAT*  units  LTERM  and  LERR.  F0R002.DAT  is  described  in 
section  3.4.3  of  the  User's  Manual. 


NOTE 

In  most  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eouations  as  well  as  the  theory  behind  them.  NA  denotes  routines  that 
are  prosrammins  utilities  such  as  finding  indices*  setting  pointers* 
etc . 
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3.7  UNITS 

Subprogram  name!  Subrouting  UNITS 

Purpose!  Determine  combination  of  measurement  units  reouested  by  the 

user.  UNITS  sets  LUN1TS  to  a  uniaue  number  for  the  combination  of 
distance  (statute  miles*  nautical  miles*  kilometers)*  height/diameter 
(feet*  meters)*  angle  (degrees*  milliradians)*  and  freauencw 
(Gigahertz*  Megahertz).  LUNITS  is  used  in  subroutines  GUTDAT  and 
SUMPAG  to  output  data  in  the  user's  units  and  in  UNITCV  to  convert 
back  and  forth  to  MKS  units. 

Calling  seouencel 
CALL  UNITS 

Contained  in  module:  UNITS 

Called  by:  INDATA 

Calls*.  ERRIO 

Input  arguments: 

NONE 

Output  arguments! 

NONE 


Global  variables 

input  from 

common 

« 

♦ 

DEG 

/UNIT/ 

R*4 

IODATA. INC 

String 

'deg  ' 

for  units 

output. 

FT 

/UNIT/ 

R*4 

IODATA. INC 

String 

'ft  ' 

for  units 

output. 

GHZ 

/UNIT/ 

R*4 

IODATA. INC 

String 

'GHz  ' 

for  units 

output . 

KM 

/UNIT/ 

R*4 

IODATA, INC 

String 

'km  ' 

for  units 

output. 

LERR 

/LUNS/ 

112 

LUNS. INC 

Error  i 

3UtPut 

unit. 

MET 

/UNIT/ 

RI4 

IODATA. INC 

String 

'met  ' 

for  units 

output. 

MHZ 

/UNIT/ 

R*4 

IODATA. INC 

String 

'MHz  ' 

for  units 

output • 

MRADNS 

/UNIT/ 

R*4 

IODATA. INC 

String 

'mrad' 

for  units 

output . 

NMI 

/UNIT/ 

R*4 

IODATA. INC 

String 

'nmi  ' 

for  units 

output. 

SMI 

/UNIT/ 

R*4 

IODATA. INC 

String 

'  smi  ' 

for  units 

output. 

Global  variables  output  to  common 
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PSITAO(NTHX) 

PSITEO(NTHX) 

THER 

THET 

THETAO 

URH(NR) 

URL (NR) 

URV(NR) 

UTH(NT) 

UTL(NT) 

UTV(NT) 

Y 1 


antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  aain  receive  antenna. 

/ANTENN/  RM  TROCOH.INC 

Array  of  transaitter  beaa  aziauths  in  radians. 

/ANTENN/  RM  TROCOH.INC 

Array  of  transaitter  beaa  boresight  elevations  above 
radio  horizon  in  radianst  ie»  angle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITEO(l) 
is  the  aain  transait  antenna. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  angle  at  receive  site  in 

radians. 

/PATHGE/  RM  TROCOH.INC 

Radio  horizon  elevation  angle  at  transait  site  in 

radians . 

/PATHGE/  RM  TROCOH.INC 

Scattering  angle  at  bottoa  of  coaaon  voluae  in 
radians . 

/PATHGE/  RM  TROCOH.INC 

Array  of  receive  antennas  horizontal  offsets  froa 

great  circle  plane  in  aeters. 

/PATHGE/  RM  TROCOH.INC 

Array  of  receive  antennas  longitudinal  offsets  in 

aeters. 

/PATHGE/  RM  TROCOH.INC 

Array  of  receive  antennas  vertical  offsets  in  aeters. 

/PATHGE/  RM  TROCOH.INC 

Array  of  transait  antennas  horizontal  offsets  in 

aeters. 

/PATHGE/  R*4  TROCOH.INC 

Array  of  transait  antennas  longitudinal  offsets  in 

aeters . 

/PATHGE/  RM  TROCOH.INC 

Array  of  transait  antennas  vertical  offsets  in  aeters. 
/PATHGE/  RM  TROCOH.INC 

Haxiaua  estiaated  integration  length  in  Y-direction. 
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HL(3) 


HLAV(3) 


HLEF(3) 


PHDIV 


PSIRAO(NRHX) 


PSIREO<  NRHX ) 


HI (NPMtNOBSTl > )  =  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  HDTSf  HI  is  used  as  work  seace.  It  is  eouivalenced 
to  local  arrays. 

/MC0H4/  RM  MCOH.INC 

Array  containing  elevation  of  each  obstacle  above  sea 
level  in  meters.  HC. < 1 )  is  elevation  of  transmitter 
radio  horizon  HLT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  HLR. 

/HC0H4/  RM  MCOH.INC 

Array  containing  average  terrain  elevation  at  each 

diffraction  point  in  meters. 

/MC0M4/  RM  MCOH.INC 

Array  containing  effective  height  of  obstacles  above 
average  terrain  elevation  in  aeters. 

/PROPAR/  RM  TROCOH. INC 

Lowest  height  above  sea  level  at  which  CN2  is 

specified  in  aeters. 

/PATHGE/  R*4  TROCOH. INC 

Receiver  radio  horizon  elevation  above  sea  level  in 

aeters. 

/PATHGE/  RM  TROCOH. INC 

Transmit  radio  horizon  elevation  above  sea  level  in 

aeters. 

/HC0H4/  RM  MCOH.INC 

Effective  receiver  antenna  height  above  average 

terrain  elevation  in  aeters. 

/PATHGE/  RM  TROCOH. INC 

Receive  antenna  height  above  sea  level  in  meters. 

/MCGM4/  RM  MCOH.INC 

Effective  transmitter  antenna  height  above  average 

terrain  elevation  in  aeters. 

/PATHGE/  RM  TROCOH. INC 

Transmit  antenna  height  above  sea  level  in  aeters. 

/MC0H4/  RM  MCOH.INC 

Souint  angle  between  upper  and  lower  receiver  beams  in 
radians.  Default  is  beaawidth. 

/PATHGE/  RM  TROCOH. INC 

Diffraction  angle  in  radians. 

/PATHGE/  RM  TROCOH. INC 

Receive  angular  distance  to  minimum  scattering  point 

in  radians. 

/PATHGE/  RM  TROCOH. INC 

Transmit  angular  distance  to  minimum  scattering  point 
in  radians. 

/ANTENN/  RM  TROCOH. INC 

Array  of  receiver  beam  azimuths  in  radians. 

/ANTENN/  RM  TROCOH. INC 

Array  of  receiver  beam  boresisht  elevations  above 

radio  horizon  in  radians*  ie*  angle  at  which  each 
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BET  AO 

BETA1 

D 

"ELH 
DL  ( i ) 

DLR 

DLT 

DR 

DS<3> 

DT 

F 

HCOH 

HHI6H 

HI ( 155) 


/PATHGE/  R*4  TROCOH.INC 

Hinimum  receive  antenna  elevation  angle  measured  fro* 
receiver-to-transmitter  line  to  receiver  horizon  line 
in  radians. 

/PATHGE/  RM  TROCOH.INC 

Haximum  receive  antenna  elevation  angle  Measured  fro* 
recei ver-to-transeitter  line  to  toe  of  common  volume 
in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  meters. 

/PROPAR/  R*4  TROCOh. INC 

Spacing  of  CN2  samples  in  meters* 

/MC0H4/  R*4  HCOH. INC 

Arrau  containing  distance  from  each  obstacle  to 

transmitter  in  meters* 

/PATHGE/  R*4  TROCOH.INC 

Distance  from  receiver  to  radio  horizon  in  meters. 

/PATHGE/  R*4  TROCOH.INC 

Distance  from  transmitter  to  radio  horizon  in  meters. 
/PATHGE/  R*4  TROCOH.INC 

Receiver  distance  to  minimum  scattering  point  in 
meters. 

/HC0H4/  Rt4  HCOH. INC 

Arrau  of  effective  obstacle  extents  along  the  great 
circle  path  in  meters. 

/PATHGE/  R*4  TROCOH.INC 

Transmit  antenna  distance  to  minimum  scattering  point 
in  meters. 

/SYSTRN/  R*4  TROCOH.INC 

Operating  free uencu  in  Hz.  Hodel  is  accurate  between 
lOOHHz  and  10GHz. 

/PATHGE/  R*4  TROCOH.INC 

Effective  height  of  the  bottom  of  the  common  volume  in 
meters. 

/PATHGE/  R*4  TROCOH.INC 

Effective  height  of  the  top  of  the  common  volume  in 

meters. 

/HC0H4/  R*4  HCOH. INC 

Arrau  containing  NPH(l)  evenl u-spaced  terrain 
elevation  data  (in  meters)  between  transmitter  and 
first  obstacle  followed  bu  NPH(2)  evenl u-spaced 
terrain  elevation  data  between  first  and  second 
obstacle,  etc.,  ending  with  NPH(NOBStl)  evenl u-seaced 
terrain  elevation  data  between  last  obstacle  and 
receive  site.  The  data  should  be  selected  such  that! 

HI(1)  =  Terrain  elevation  shove  sea  level  at 
transmit  site  <HT0) . 

HI(NPH(I)>  =  HI  (NPH< I )+l )  *  Elevation  of  Ith 
obstacle  above  sea  level  (HL(I)). 


1 

1 


i 
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Integer  value  that  specifies  the  set  of  units 
reouested  by  the  user.  These  units  are  for  path* 
antenna  location*  angle*  and  freouency  earaaeters. 
Default  is  8.  The  given  units  are  defined  by  bit 
values  of  LUNITS*. 

Bit  no.  Heaning  of  value  0/1 

0  enslish  /  aetric 


1  statute  eiles  /  nautical  Biles 


2 

feet 

/  aeters 

3 

arad 

/  degrees 

4 

GHz  / 

HHz 

Valid 

LUNITS  values 

are 

0  : 

stat.  ailes  - 

feet 

ailliradians 

- 

GHz 

l  : 

kiloaeters 

aeters  - 

ailliradians 

- 

GHz 

2  l 

naut.  ailes  - 

feet 

ailliradians 

- 

GHz 

8  : 

stat.  ailes  - 

feet 

degrees 

- 

GHz 

9  : 

kiloaeters 

aeters  - 

degrees 

- 

6Hz 

10J 

naut. ailes 

feet 

degrees 

- 

GHZ 

16: 

stat.  ailes  - 

feet 

ailliradians 

- 

HH2 

17: 

kiloaeters 

aeters  - 

ailliradians 

- 

HHz 

is: 

naut.  ailes  - 

feet 

ailliradians 

- 

HHz 

24: 

stat.  ailes  - 

feet 

degrees 

- 

HHz 

25: 

kiloaeters 

aeters  - 

degrees 

- 

HHz 

26: 

naut.  ailes  - 

feet  - 

degrees 

- 

HHz 

NR  /SYSTRN/  1*2  TR0C0H.1NC 

Nuaber  of  receive  ports. 

NT  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  transait  ports. 


Global  variables  output  to  coaaon' 

ALFAO  /PATHGE/  R*4  TROCOH.INC 

Hiniaua  transait  antenna  elevation  angle  aeasured  froa 
transaitter-to-receiver  line  to  transait  horizon  line 
in  radians. 

ALFA1  /PATHGE/  R*4  TROCOH.INC 

Haxiaua  transait  antenna  elevation  angle  aeasured  froa 
transaitter-to-receiver  line  to  top  of  coaaon  voluae 
in  radians. 

AR(NRHX)  /ANTENN/  R*4  TROCOH.INC 


Array  of  receiver  antenna  diaaeters  in  aeters.  AR(1) 
is  eouivalent  to  RPIAH  in  the  input  file. 

AT(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  transaitter  antenna  diaaeters  in  aeters. 

AT < 1 >  is  eouivalent  to  1DIAH  in  the  input  file. 

AVERX  /HC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 
receive  site  and  radio  horizon*  in  aeters. 

AVETX  /HC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 
transait  site  and  radio  horizon*  in  aeters. 
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3. A  UNITCV 

Subprogram  naae!  Subroutine  UNITCV 

Purpose!  UNITCV  converts  data  to  HKS  units  if  the  arSuaent  is  positive 
and  converts  froft  NKS  units  to  input  units  (those  reouested  bs  the 
user  in  the  input  file*  TR0P0.DAT)  if  the  arguaent  is  negative*  This 
allows  the  user  freedoa  to  input  in  desired  units  and  see  the  output 
in  the  saae  units  but  still  allow  the  Prograa  to  run  with  the  units  it 
expects.  NKS  units  are!  »eters  for  height*  distance  and  elvation* 
seconds  for  tiae*  radians  for  angles*  and  Hz  for  the  operating 
freouency.  Bandwidths  and  data  rates  are  not  converted. 

Calling  seouence! 

CALL  UNITCV  (IDIR) 

Contained  in  aodule!  UNITCV 

Called  b y!  INDATA*  SUNPAG 

Calls!  ERROR 

Input  arguaents! 

IDIR  1*2  Directive  flag! 

>0  Convert  to  HKS  units. 

<0  Convert  to  user's  units. 

Output  arguaents! 

NONE 

Global  variables  input  froa  coaaon! 

CDEGR  /CONSTA/  R*4  CONSTANTS. INC 

Radians  per  degree  =  0.017453293. 

CE3  /CONSTA/  R*4  CONSTANTS. INC 

1  X  10**3  =  1000, 

CHTPFT  /CONSTA/  R*4  CONSTANTS. INC 

Meters  per  foot  =  0.3048. 

CMTPMI  /CONSTA/  R*4  CONSTANTS. INC 

Meters  per  statute  aile  =  1609.344 
CMTPNM  /CONSTA/  R*4  CONSTANTS, INC 

Meters  per  nautical  aile  =  1852. 

I DM  /UNIT/  1*2  I0DATA. INC 

0  if  degrees*  1  if  ailliradians. 

IME  /UNIT/  1*2  I0DATA. INC 

0  if  aetric  units*  1  if  English. 

IMG  /UNIT/  1*2  I0DATA. INC 

0  if  MHz*  1  if  GHz. 

INS  /UNIT/  1*2  10DATA. INC 

0  if  nautical  ailes*  1  if  statute  ailes. 

LUNITS  /UNIT/  1*2  I0BATA.INC 
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3.5  SECTOR 

Subprogram  naee*  Subroutine  SECTOR 
Purpose*  Search  for  a  section  header* 

Description*.  SECTOR  searches  for  a  section  header  in  the  input  file 

TR0P0.DAT  by  reading  lines  until  the  first  four  characters  on  the  line 
■atch  the  string  passed  in  Y. 

Calling  seauencet 

CALL  SECTOR  <Y»  X) 

Contained  in  nodule*  INDATA 

Called  byJ  INDATA 

Calls:  ERRIO 

Input  arguments*. 

Y  R *4  Mord  to  search  for. 


Output  argueents! 

X  R*4  Mord  found. 

Global  variables  input  froe  coeaon* 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

Global  variables  output  to  coeeon. 

LIN  /LUNS/  1*2  LUNS.INC 

TR0P0.DAT  input  unit  nueber. 


INPUT 
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'  • 

2  =  Calculate  reference  horizon  using  HORANG 

and  K  eauals  ERFAC.  (AssuBins  OLT  and  DLR 
are  non-zero. ) 

3  =  Do  not  chande  reference  horizons  froa 

previous  run.  (Option  not  available.) 
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Subroutine  OUTDAT 


characters. 

UANGLE  /UNIT/  RM  IODATA.INC 

Units  of  angle  (dear  arad). 

UDIST  /UNIT/  R*4  IODATA.INC 

Units  of  distance  (sai»  nai*  ka). 

UFREG  /UNIT/  R*4  IODATA.INC 

Units  of  freauency  (GHz»  MHz). 

UHITE  /UNIT/  R*4  IODATA.INC 

Uiiits  of  heiaht  and  diaaeter  (ft»  a). 

URH(NR)  /PATHGE/  R*4  TROCOM.INC 

Arraa  of  receive  antennas  horizontal  offsets  froa 
dreat  circle  plane  in  aeters. 

URL (NR)  /PATHGE/  R*4  TROCOM.INC 

Array  of  receive  antennas  lonaitudinal  offsets  in 
aeters . 

URV(NR)  /PATHGE/  R*4  TROCOM.INC 

Array  of  receive  antennas  vertical  offsets  in  aeters. 

UTH(NT)  /PATHGE/  R*4  TROCOM.INC 

Array  of  transait  antennas  horizontal  offsets  in 
aeters . 

UTL(NT)  /PATHGE/  R*4  TROCOM.INC 

Array  of  transait  antennas  lonaitudinal  offsets  in 
aeters. 

UTV(NT)  /PATHGE/  R»4  TROCOM.INC 

Array  of  transait  antennas  vertical  offsets  in  aeters 

WLT  /SYSTRN/  R*4  TROCOM.INC 

Rated  transaission  power  in  Watts.  Default  is  1000  W 

XANG(IO)  /MC0M4/  R*4  MCOM.INC 

Interferer  aziauth  angles  in  degrees.  Default  is  0. 

Y900  /CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  greater  than  or  eoual  900  ka. 

Used  only  when  ICLIME  is  2.  Used  to  coapute  the 
eauation  for  the  Y0(90>  curve  fit. 

YMIN  /CURVE/  RI4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  eoual  to  OEMIN.  Used  only  when 
ICLIME  is  2.  Used  to  coapute  the  eauation  for  the 
Y0<90)  curve  fit. 

Global  variables  output  to  coaaon* 

ITOFF  /PROPAR/  1*2  TROCOM.INC 

Control  indicator  for  entry  or  calculation  of 
transait/receive  radio  horizon  angles  THET  and  THER. 
Values  have  following  aeanings* 

0  *  Use  input  THET»  THER  as  reference  and 
actual  horizon  (default), 

1  =  Calculate  reference  horizon  using  HORANG 
and  K  eouals  1.33.  (Assuains  DLT  and  DLR 
are  non-zero,)  (Option  not  available.) 


INPUT 

Subroutine  OUTDAT 


Pase  3-22 


PHDIV 

PSIRAO(NRHX) 

PSIREO(NRHX) 

PSITAO(NTNX) 

PSITEOiNTHX) 

PXHIT 

RLL 

SCPARH 

SEAN 

SHI 

SP 

TAPW 

THER 

THET 

TLL 

T0DAY19) 


effective  antenna  heiShts  (HTE*  HRE)  and  effective 
obstacle  heights  above  average  terrain  elevation 
<HLEF ) . 

0  =  HTE  and  HRE  supplied  directly 

1  =  AVETX  and  AVERX  supplied 

2  *  HI < . )  supplied 

/HC0H4/  RM  HCOH.INC 

Souint  ansle  between  upper  and  lower  receiver  beams  in 
radians.  Default  is  beamwidth. 

/ANTENN/  RM  TROCOM.INC 

Array  of  receiver  beat  azimuths  in  radians. 

/ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beam  boresisht  elevations  above 
radio  horizon  in  radians*  ie*  ansle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSIREO(l) 
is  the  main  receive  antenna. 

/ANTENN/  RM  TROCOH.INC 

Array  of  transmitter  beaa  azimuths  in  radians. 

/ANTENN/  RM  TROCOH.INC 

Array  of  transmitter  beam  boresisht  elevations  above 
radio  horizon  in  radians*  ie*  ansle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSITEO(l) 
is  the  main  transmit  antenna. 

/HC0H4/  RM  HCOH.INC 

Rated  transmission  power  in  d8m.  Default  is  70dBm. 

/SYSTRN/  RM  TROCOH.INC 

Receiver  line  losses  in  dB.  Default  is  0  dB. 

/PROPAR/  R*4  TROCOH.INC 

Wavenumber  spectrum  slope  parameter  H.  Default  is 

3  *  66 . 

/PROPAR/  R!4  TROCOH.INC 

Hinioum  monthly  median  of  refractivity  at  sea  level. 

Used  to  calculate  ERFAC  if  non-zero. 

/UNIT/  RM  IODATA.INC 

StrinS  'smi  '  for  units  output. 

/MC0H4/  RM  HCOH.INC 

Service  probability.  Default  is  .95. 

/HC0H4/  RM  HCOH.INC 

Normalized  tapwidth  for  HD-918.  Default  is  .5. 

RanSe  is  0.25  throush  1.0 

/PATHGE/  RM  TROCOH.INC 

Radio  horizon  elevation  ansle  at  receive  site  in 

radians. 

/PATHGE/  RM  TROCOH.INC 

Radio  horizon  elevation  ansle  at  transmit  site  in 

radians. 

/SYSTRN/  RM  TROCOH.INC 

Transmitter  line  losses  in  dB.  Oefault  is  0  dB. 
/TSTAHP/  1*1  IODATA.INC 

Array  used  in  PDP-11  version  to  hold  date  as 
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HODPAT 


HODSIG 

HRADNS 

NACCU 

NCLIHE 

NERT 


NEUCL(4) 

NFIG 

NMI 

NOBS 

N0W<8> 

NPH(5) 

NR 

NT 

NTAP 

NTERR 


/NCQH2/  1*2  HCOH.INC 

Propagation/aodea  flag  to  select  calculation  aode. 
Default  is  1. 

0  =  Propagation  only 

1  =  Propagation  +  HD-918  aode* 

2  =  Propagation  +  AN/TRC-170  or  DAR  aode* 

3  =  Propagation  +  user-defined  aode* 

/HCQM2/  1*2  HCOH.INC 

Interference  signal  aodulation  foraat.  Default  is  1. 

0  =  Analog  FBH  /  FH 
1  =  Digital  OPSK 

/UNIT/  RI4  10DATA. INC 

String  'arad'  for  units  output. 

/CONTRL/  1*2  TROCOH. INC 

Paraaeter  used  as  truncation  point  for  coaaon 

voluae  integration  teraination.  Default  is  40. 

/HC0H2/  1*2  HCOH.INC 

Flag  set  to  1  if  ICLIHE  eouals  2. 

/HC0H2/  1*2  HCOH.INC 

Bit  error  rate  threshold  indicator  for  yearly  fade 

outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  *  For  10**(-3>  only 

2  =  For  10**<-4)  only 

3  =  For  10**<-5)  only 

/HC0H2/  1*2  HCOH.INC 

New  cliaate  type  character  string. 

/HC0H4/  R*4  HCOH.INC 

Receiver  noise  figure  in  dB.  Default  is  4dB. 

/UNIT/  R*4  I0DATA. INC 

String  'nai  '  for  units  output. 

/HC0H2/  1*2  HCOH.INC 

Nuaber  of  diffraction  obstacles.  Haxiaua  is  3* 

default  is  1. 

/TSTAHP/  1*1  IODATA. INC 

Array  used  in  PDP-11/70  version  to  hold  tiae  of  day  as 
characters . 

/HC0H2/  1*2  HCOH.INC 

Array  containing  nuaber  of  terrain  elevation  data 
points  for  calculation  of  effective  antenna  heights 
for  each  section  of  the  diffraction  path. 

/SYSTRN/  1*2  TROCOH.: 

Nuaber  of  receive  ports. 

/SYSTRN/  1*2  TROCOH. INC 

Nuaber  of  transait  ports. 

/HC0H2/  1*2  HCOH.INC 

Nuaber  of  adaptive  forward  enualizer  taps  (AFE)  in 

HD-918  aode*.  Set  to  3  in  INDATA. 

/HC0H2/  1*2  HCOH.INC 

Control  paraaeter  for  entry  or  calculation  of 
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KPROF 


LNAHE(20) 


LUNITS 


i  =  Interferer  covariance  Matrix  calculation 
done  in  subroutine  JAhCOM 
/UNIT/  R*4  IODATA. INC 

String  'km  '  for  units  output. 

/PROPAR/  112  TROCOH.INC 

Actual  number  of  samples  in  height  profile  of 

structure  constant  CN2.  Limited  to  NPROF  samples* 

/HC0M2/  1*2  hCOM.INC 

Number  of  future  Intersymbol  Interference  (ISI) 

contributors  considered  in  HD-918  performance 

calculation*  Default  is  2* 

/IODATA/  1*2  IODATA. INC 

Link  name*  Transmitter  site  first*  receiver  site 
second*  Used  as  link  identifier  on  output  files 
F0R002.DAT  and  SUHPAG.OUT, 

/LUNS/  1*2  LUNS.1NC 

FOR002.DAT  output  unit  number* 

/UNIT/  1*2  IODATA. INC 

Integer  value  that  specifies  the  set  of  units 
reouested  by  the  user.  These  units  are  for  path* 
antenna  location*  angle*  and  freouency  parameters* 
Default  is  8.  The  given  units  are  defined  by  bit 
values  of  LUNITSi 

Bit  no.  Meaning  of  value  0/1 

0  enslir.h  /  metric 

1  statute  miles  /  nautical  miles 

2  feet  /  meters 

3  mrad  /  degrees 

4  GHz  /  HHz 
Valid  LUNITS  values  are 


stat.  miles 
kilometers 
naut.  miles 
stat.  miles 
kilometers 


feet 

meters 

feet 

feet 

meters 


milliradians 
ail  liradians 
milliradians 
degrees 
degrees 


10*. 

naut.miles 

feet 

-  degrees 

-  GHZ 

16*. 

stat.  miles  - 

feet 

-  milliradians 

-  HHz 

17*. 

kilometers 

meters 

-  milliradians 

-  HHz 

is: 

naut.  miles  - 

feet 

-  milliradians 

-  HHz 

245 

stat.  miles  - 

feet 

-  degrees 

-  HHz 

25*. 

kilometers 

meters 

-  degrees 

-  HHz 

26*. 

naut.  miles  - 

feet 

-  degrees 

-  HHz 

/HCOM 

2/  1*2 

HCOH 

.INC 

Number  of  values  of 

interferer  azimuth/elevation 

(JANG)  for  which  outage  calculations  are  to  be  made* 
Default  is  1* 

/UNIT/  R*4  IODATA. INC 

String  'met  '  for  units  output. 

/UNIT/  R*4  IODATA. INC 

String  'HHz  '  for  units  output. 
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HLEF(3) 


ICLIME 


IPOLR(NRHX) 


IPOLT(NTHX) 


JFILT 


IBR(NRHXf NRHX) 


Array  containing  average  terrain  elevation  at  each 
diffraction  point  in  aeters. 

/HC0H4/  R*4  HCOH.INC 

Array  containing  effective  height  of  obstacles  above 
average  terrain  elevation  in  aeters. 

/PROPAR/  R*4  TROCOH.INC 

Lowest  height  above  sea  level  at  which  CN2  is 

specified  in  eaters. 

/PATHGE/  R*4  TROCOH.INC 

Receiver  radio  horizon  elevation  above  sea  level  in 

Aeters • 

/PATHGE/  R*4  TROCOH.INC 

Transait  radio  horizon  elevation  above  sea  level  in 

aeters. 

/PATHGE/  R<4  TROCOH.INC 

Receive  antenna  height  above  sea  level  in  aeters. 

/HC0M4/  R*4  HCOH.INC 

Effective  transaitter  antenna  height  above  average 

terrain  elevation  in  aeters. 

/PATHGE/  R*4  TROCOH.INC 

Transait  antenna  height  above  sea  level  in  aeters. 
/SYSTRN/  1*2  TROCOH.INC 

Channel  coaplex-envelope  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  only 

2  =  Power  (correlation)  per  unit  delay 

seectrua  calculation 
/HC0H2/  1*2  HCOH.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  =  No  RF  filtering 

1  =  Filter  deterained  froa  99X  bandwidth  constraint 

2  =  Filter  chosen  to  aeet  FCC  Hask.  (FCC-19311) 

3  =  Filters  are  user  specified 

/HCQH2/  1*2  HCOH.INC 

Cliaate  class.  Default  is  0. 

0  =  NBS  TN-101  cliaate 

1  =  HIL-HDBK-417  cliaate 

2  =  New»  user-supplied  cliaate 


/ANTENN/ 


TROCOH.INC. 


Array  of  receiver  antenna  polarizations. 

/ANTENN/  1*2  TROCOH.INC 

Array  of  transaitter  antenna  polarizations. 

/HC0H2/  1*2  HCOH.INC 

Interference  covariance  aatrix  calculation  indicator. 
Only  used  when  IBM  eauals  Of  otherwise  ignored. 
Default  is  0. 

0  =  Interferer  covariance  aatrix  calculation 
done  in  subroutine  BOTAC 


ERROR  UTILITIES 
Subroutine  CHKDAT 
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A ♦ 1  CHKDAT 

Subprogram  name*  Subroutine  CHKDAT 

Purpose!  Performs  a  preliminary  check  of  the  validity  of  the  data  read 
from  the  input  file  TR0P0.DAT.  Array  bounds*  path  symmetry*  and 
validity  of  the  specified  correlations  (through  the  array  IBR)  are 
verified.  Further  checking  is  done  throughout  TROPO* 

Calling  sequence! 

CALL  CHKDAT 

Contained  in  module!  CHKDAT 

Called  by!  TROPO 

Calls!  ERROR 

Input  arguments! 

NONE 

Output  arguments! 

NONE 

Global  variables  input  from  common! 

AR(NRNX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  antenna  diameters  in  meters.  AR(1) 
is  eouivalent  to  RDIAH  in  the  input  file. 

AT(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  transmitter  antenna  diameters  in  meters. 
AT(1)  is  eouivalent  to  TbIAH  in  the  input  file. 
IBR(NRHX*NRHX)  /SYSTRN/  1*2  TROCOH.INC 

Channel  complex-envelope  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  only 

2  =  Power  (cor relation)  per  unit  delay 

spectrum  calculation 

NR  /SYSTRN/  1*2  TROCOH.INC 

Number  of  receive  ports. 

NRHX  Parameter  1*2  TROPAR.INC 

Maximum  number  of  receive  ports. 

NT  /SYSTRN/  1*2  TROCOH.INC 

Number  of  transmit  ports. 

NTMX  Parameter  1*2  TROPAR.INC 

Maximum  number  of  transmit  ports. 

PSIRAO(NRMX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beam  azimuths  in  radians. 
PSIREO(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beam  boresisht  elevations  above 
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radio  horizon  in  radians*  ie»  anale  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  aain  receive  antenna. 

PSITAO<NTMX)  /ANTENN/  R*4  TROCOH.INC 

Arras  of  transaitter  beaa  aziauths  in  radians. 

PSITEO(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Arras  of  transaitter  beaa  boresiaht  elevations  above 
radio  horizon  in  radians*  ie*  anale  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIlEO(l) 
is  the  aain  transait  antenna. 

URH(NR)  /PATH6E/  R*4  TROCOH.INC 

Arras  of  receive  antennas  horizontal  offsets  froa 
Sreat  circle  plane  in  aeters. 

URL < NR)  /PATHGE/  R*4  TROCOH.INC 

Arras  of  receive  antennas  lonaitudinal  offsets  in 
aeters • 

URV(NR)  /PATH6E/  R*4  TROCOH.INC 

Arras  of  receive  antennas  vertical  offsets  in  aeters. 

UTH(NT)  /PATHGE/  R*4  TROCOH.INC 

Arras  of  transait  antennas  horizontal  offsets  in 
aeters. 

UTL(NT)  /PATHGE/  R*4  TROCOH.INC 

Arras  of  transait  antennas  lonaitudinal  offsets  in 
aeters. 

UTV(NT)  /PATHGE/  R*4  TROCOH.INC 

Arras  of  transait  antennas  vertical  offsets  in  aeters. 
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4 . 2  ERROR 

Subprogram  name*  Subroutine  ERROR 

Purpose*  Outputs  error  number  and  error  message  to  terminal  (unit 
LTERM)  and  the  output  file  F0R002.DAT  (unit  LOUT)# 

Description*  Checking  for  input  errors  is  done  throughout  TROPO.  When  a 
fatal  error  or  data  inconsistency  is  foundi  processing  transfers  to 
subroutine  ERROR.  Most  errors  found  are  fatal  so  processing  branches 
to  line  500  to  STOP  after  outputting  the  message!  others  are  merely 
warnings  and  branch  to  600  to  return  to  the  calling  program  and 
continue  processing. 

The  errors  are  divided  in  the  source  code  by  calling  routine  so  a 
check  of  the  code  or  FORMAT  statements  reveals  in  which  routine  the 
error  was  encountered. 

Note  that  for  all  error  999s  the  calling  program  has  already 
printed  an  error  message  to  the  output  file  F0R002.DAT  before  calling 
ERROR. 


Calling  seauencei 

CALL  ERROR  (I) 


Contained  in 

module: 

ERROR 

Called  by! 
LOOPS 
TRANSF 

ANTPAR 

MATA 

TRCIN 

ATMOS 

MDIF 

TRLOSS 

CHANGE 

MD'fS 

UNITCV 

CHKDAT 

ORDER 

UNITS 

CLIME 

RIPROF 

CLIMIL 

SIGIN 

CI.IM1X 

SQTMAT 

DEIND 

SUMPAG 

Calls!  NONE 

Input  arguments! 

I  142  Error  number. 

Output  arguments: 

NONE 

Global  variables  input  from  common: 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 
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4.3  SUBID 

Subprogram  name*  Subroutine  SUBID 

Purpose*  Subroutine  to  identify  blocks  of  output  or  output  variables  by 
writing  'SNAME'*  the  subprogram  printing  such  output*  to  logical  unit* 
LOUT. 

Calling  seouence. 

CALL  SUBID  (SNAKE) 

Contained  in  module*  SUBID 

Called  by. 

Calls*.  NONE 

Input  arguments* 

SNAKE  R*8  Name  of  subprogram  to  output. 

Output  arguments! 

NONE 

Global  variables  input  from  common* 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 


CHAPTER  5 


TROPOSCATTER  CALCULATIONS 


This  section  describes  the  tropospheric  scatter  calculation  routines 


User's  Manual 

Name  Description  section 


ANTPAR  Antenna  parameters  ......  2.5.2. 1 

ANTPTR  Antenna  pointers  .......  NA 

ATMOS  Atmospheric  absorption 

calculations  .  ...  2.5. 2.4 

AVTER  Average  terrain  height  ....  2. 5.4. 7 
BEAMPT  Beam  pointers  .........  NA 

DELO  Delay . NA 

ERFC  Complimentary  error  function  .  NA 
FRQSEP  Freouency  separation  .....  2. 5. 6. 3 
GPATT  Voltage  gain  pattern  .....  2.5. 2.1 
HORANG  Horizon  elevation  angles  .  .  .  NA 

INTLIM  Integration  limits  .  2. 5. 2. 2 

LOOPS  Main  routine  for  common  volume 

integration  .........  2. 5.6.1 

LTCORR  Lons  term  variability 

correction  factor  .......  2.5.7 

POWER  Long  term  RSL  and  SNR 

distribution  .  ...  2.5»  2.5. 4. 6 

RGAIN  Receive  antenna  voltage  gain 

pattern  2.5.2 

RIPROF  Structure  constant  profile 

calculation  ....»•••»•  2.5. 2. 3 
STEPAB  Step  size  of  alpha  and  beta  •  .  NA 

STEPY  Step  size  of  Y . NA 

STPPAR  Step  size  parameters  .....  NA 
T6AIN  Transmit  antenna  voltage  gain 

pattern . 2.5.2 

TRANSF  Transform  angles  and  distances  2.5. 2*  2. 5.2. 2 
TRLOSS  Theoretical  calculation  of 

basic  pathloss  ........  NA 
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The  main  routines  for  this  section  are  LOOPS  and  POWER*  The  troposcatter 
calculations  are  described  in  section  2*5  of  the  User's  Manual* 

Figure  2-2  is  a  top  level  flowchart  tor  troposcatter  propagation  parameter 
calculations  at  a  functional  level*  In  most  cases  the  blocks  correspond  to  one 
or  more  subprograms.  The  test  blocks  (diamonds)  correspond  to  logical  branches 
which  are  decided  by  the  user's  choices  of  input  data. 


NOTE 

In  most  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eouations  as  well  as  the  theory  behind  them.  NA  denotes  routines  that 
are  programming  utilities  such  as  finding  indices*  setting  pointers* 
etc. 
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Figure  2-2  Flow  Chart  for  Troposcatter  Propagation  Parameter  Calculations 
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5.1  ANTPAR 

Subprogram  name*  Subroutine  ANTPAR 

Purpose*  For  NP0RT>0  ANTPAR  returns  the  Sain  in  dB  of  transmit  antenna 
number  NPORT  and  the  3dB  half-beamuidth  in  radians*  For  NP0RT<0  the 
values  are  for  receive  beam  number  -NPORT. 

Calling  seouence* 

CALL  ANTPAR  (NPORT >GDB>DEL) 

Contained  in  modules  ANTPAR 

Called  by!  TROPO 

Calls*.  ERROR 

Input  arguments*. 

NPORT  1*2  Antenna  number. 

Output  arguments! 

GDB  R*4  Gain  of  reauested  antenna  in  dB. 

DEL  R*4  3dB  half-beamwidth  in  radians. 

Global  variables  input  from  common! 


AR(NRNX) 

/ANTENN/ 

R*4 

TROCUM. INC 

Arras  of  receiver  antenna  diameters 

in 

meters. 

is  eauivalent 

to  RDIAM 

in  the  input 

file. 

AT(NTMX) 

/ANTENN/ 

R*4 

TROCOM. INC 

Array  of  transmitter  antenna  diameters 

in 

meters 

AT<1>  is  eauivalent  to 

TDIAM  in  the 

input 

file. 

NRNX 

Parameter 

1*2 

TROPAR.INC 

Maximum  number 

of  receive  ports. 

NTMX 

Parameter 

1*2 

TROPAR.INC 

Maximum  number 

of  transmit  ports. 

WAVLEN 

/SYSTRN/ 

R*4 

TROCUM. INC 

Wavelength  in 

meters. 

ROPOSCATTER  CALCULATIONS 
ubroutine  ANTPTR 


Page  5-5 


5*2  ANTPTR 

Subprogram  name!  Subroutine  ANTPTR 

Purpose*  Set  up  pointers  to  distinct  antenna  locations  to  avoid 
duplication  of  operations  in  the  critical  parts  of  LOOPS* 

Calling  seouence* 

CALL  ANTPTR  (NPORTS*  UH»  UV,  UL.  NANY»  LOC) 


Contained  in  module*  ANTPTR 


Called  bs*.  LOOPS*  SUMPAG 


Calls:  NONE 

Input  arguments: 

NPORTS  1*2 

UH(NPORTS)  R*4 

UV(NPORTS)  R*4 

UL(NPORTS)  R*4 

Output  arguments* 

NANT  1*2 

LOC(NPORTS)  1*2 


Number  of  transmit  or  receive  ports. 
Horizontal  offsets  of  antennas. 
Vertical  offsets  of  antennas. 
Longitudinal  offsets  of  antennas. 


Number  of  distinct  antenna  locations. 
Pointers  to  location  of  antenna. 
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5.3  ATHOS 

Subprogram  name:  Subroutine  ATHOS 

PureoseS  Calculate  atmospheric  attenuation  AA  in  dB  for  a  troposcatter/ 
diffraction  path  of  length  0  in  eaters  at  freauency  F  in  Hz*  D  must  be 
less  than  500  ke  and  F  oust  be  less  than  35  GHz. 

Calling  seouencet 
CALL  ATHOS 

Contained  in  module:  ATHOS 

Called  by:  TR0P0 

Calls:  ERROR 

Input  arguments: 

NONE 

Output  arguments! 

NONE 

Global  variables  input  fro*  common! 

D  /PATHGE/  R*4  TROCOH.INC 

Great  circle  distance  between  transmitter  and  receiver 
■easured  at  sea  level  in  meters. 

F  /SYSTRN/  R*4  TROCOH.INC 

Operating  freouencs  in  Hz.  Hodel  is  accurate  between 
lOOHHz  and  10GHz. 

Global  variables  output  to  common: 

AA  /PROPAR/  RM  TROCOH.INC 

Atmospheric  absorption  loss  in  dB. 
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5*4  AVTER 

Subprodrae  naee!  Subroutine  AVTER 

Purpose!  Routine  to  calculate  average  terrain  height  above  sea  level  at 
TWO  terminal  points  1  and  2  given  NP  evenly  spaced  terrain  elevation 
data  points  between  thee  by  fitting  a  straight  line  to  terrain  data. 

Calling  seouence! 

CALL  AVTER  (H1AV.H2AV.HI » NP . XO. X20. D ) 

Contained  in  eodule!  AVTER 


Called  by*. 

DIFSNR  » 

POWER 

Calls! 

NONE 

Input  ardueents! 

HI(NP) 

R*4 

Array  of  NP  evenly  spaced  terrain  elevations  in  eeters 
above  sea  level. 

NP 

1*2 

Nueber  of  data  points  used  to  calculate  average 
heights. 

XO 

R*4 

Distance  of  first  terrain  height  data  point  froe 
tereinal  point  1  in  eeters. 

X20 

Rt4 

Distance  of  last  terrain  height  point  froe  tereinal 

1  in  eeters. 

P 

R  *4 

Distance  between  tereinal  points  1  and  2  in  eeters. 

Output  arsueents! 

H1AV  R*4  Average  terrain  height  at  tereinal  1  in  eeters> 

H2AV  RM  Average  terrain  height  at  tereinal  2  in  eaters. 
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5*5  BEAHPT 

Subprograa  naae!  Subroutine  BEAHPT 

Purpose*  Set  up  pointers  to  distinct  receive  antenna  beaas  to  avoid 
duplication  of  operations  in  the  critical  parts  of  LOOPS.  The 
pointers  are  used  in  LOOPS  to  calculate  angle  diversity  correlations 
for  a  troposcatter  receiver. 


Calling  seouence* 

CALL  BEAHPT  IMPORTS'  PSIEi  PSIA>  NBEAH'  IBEAHi  JBEAH) 
Contained  in  aodule!  BEAHPT 


Called  by*.  LOOPS 

Calls:  HONE 

Input  arguments*. 

NPORTS  1*2 

PSIE ( NPORTS )  R*4 

PSIA(NPORTS)  R*4 

Output  arguaents: 

NBEAH  1*2 

IBEAH(NPORTS)  1*2 


JBEAH(NPORTS)  1*2 


Nuaber  of  transmit  or  receive  ports. 

Beaa  boresisht  elevations  above  radio  horizon. 
Beaa  aziauths. 


Nuaber  of  distinct  beaas. 

Pointers  to  antenna  ports  froa  beaa  noaber. 
IBEAHI I )  identifies  the  lowest  nuabered  port 
with  antenna  pattern  nuaber  I. 

Pointers  to  beaa  nuaber  froa  antenna  port. 
JBEAH(I)  is  the  antenna  pattern  of  antenna 
port  nuaber  I. 
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5*6  DELO 

SubprosraB  naae!  Subroutine  DELO 

Purpose.*  Calculates  the  delay,  relative  to  Df;»  froB  the  transBitter  to 
a  scattering  point  to  the  receiver.  The  scattering  point  is 
characterized  ba  ALFA,  BETA,  and  DC.  This  delaa  value  is  used  in  the 
LOOPS  integration  for  the  calculation  of  the  delaa  profile. 

Calling  seouence*. 

CALL  DELO  (ALFA.  BETA,  DC,  DEL) 

Contained  in  Module.  DELO 

Called  bat  LOOPS 


Calls!  NONE 


Input  arguments! 

ALFA 

R*4 

Angle  between  the  transBitter-receiver 
tranSBitter-scatterer  line  in  radians. 

line 

and 

the 

BETA 

R«4 

Angle  between  the  receiver-transBitter 
recei ver-scatterer  line  in  radians. 

J  ine 

and 

the 

DC 

RM 

Delaa  between  transwitter  and  receiver 
free  space)  in  seconds. 

(straight 

line, 

Output  arguments! 

DEL  R*4  Trans*itter-scatter-receiver  delay  less  the  BiainuB 
delaa  DC  in  seconds. 
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5.7  ERFC 

Subprogram  name?  Function  ERFC 

Purpose*  Complimentary  error  function  approximation. 

Referenced  Abramowitz  and  Stegun.  Handbook  of  Mathematical  Functions. 
1968.  p.  299.  7.1.26. 

Calling  seouence! 

ERFC  (X.XLIMIT) 

Contained  in  module!  ERFC 

Called  by:  CLIHIX  DIFSNR  PAVERG  POUTAG  POWER 

Calls:  NONE 

Input  arguments! 

X  RM  Lower  limit  on  integration. 

XLIMIT  RM  Cut-off  limit  on  argument  beyond 

which  the  function  value  is  zero. 

Output  arguments*. 

ERFC  R*4  Complimentary  error  function  approximation. 
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5.14  POWER 

Subprogram  name'.  Subroutine  POWER 

Purpose}  Calculates  the  long  term  RSL  distribution  of  the  troposcatter 

signal  for  the  specified  climate  type.  It  also  calculates  and  prints 
out  the  long  term  distribution  of  the  SNR  per  diversity  branch  for  a 
desired  service  probability. 

Calling  seoueneet 

CALL  POWER  ( JP0W> ASEP  >  TAU22  *  T  AU23»RH1 »EL0SS>  ASNR*  PW1*  BWR>  PTYPF ) 

Contained  in  module*  POWER 

Called  by}  TROPO 

Calls*.  AVTER  CLINE  Cl IMIL  CLIHIX  FRFC 

Input  arguments} 

JPOW  R*8  Interference  signal  power  density  in  dBm/Hz. 

ASEP  K*4  Separation  between  receive  antennas  in  meters. 

PTYF'E  1*2  Variable  which  indicates  whether  propagation 

mechanism  is  pure  troeosratter  (0  or  10)  or  mixed 
troposcatter-dif fraction  (1  or  11). 

BWT  R*4  Transmit  antenna  besawidth  in  degrees. 

FWR  R*4  Receive  antenna  beanwidth  in  degrees. 

Output  arguments! 

ELOSS  R*8  Upper  beam  sauint  loss  for  scattpr  component  in  dp  or 

sidelobe  loss  for  interference. 

TAU22  R*8  Delay  spread  on  lower  beam  in  nsec, 

TAU23  R*8  Delay  spread  on  upper  beam  in  nsec. 

RH1  R*8  Correlation  coeffiecient  between  lower  and  upper  beam. 

ASNR  R* 4  Median  and/or  yearly  average  value  of  troposcatter 

signal  SNR  in  dB. 

Global  variables  input  from  common*. 

AA  /PROPAR/  R*4  TR0C0M.INC 

Atmospheric  absorption  loss  in  dB. 

ALFAO  /PATHGE/  R*4  TP0CPM.1NC 

Minimum  transmit  antenna  elevation  angle  measured  from 
transmitter-to-recei ver  line  to  transmit  horizon  line 
in  radians. 

PETAO  /PATHGE/  R*4  TROCPM.INC 

Minimum  receive  antenna  elevation  angle  measured  from 
receiver-to-transmitter  line  to  receiver  horizon  line 
in  radians. 

PW  /SYSTRN/  R*4  TR0C0M.INC 

Pandwidth  in  Hertz.  Default  is  7  MHz, 

C  /PDATA/  R*4  PDATA . INC 
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Error  output  unit 4 

PHDIV  /HC0M4/  R*4  MCOH.INC 

Souint  ansle  between  upper  and  lower  receiver  beams  in 
radians.  Default  is  beamwidth. 

THER  /PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  ansle  at  receive  site  in 
radians  t 

THETAO  /PATHGE/  R*4  TROCOM.INC 

Scattering  ansle  at  bottom  of  common  volume  in 
radians. 

Global  variables  output  to  common: 

CORRLT  /CPLOSS/  R*4  CPL.INC 

Correlation  coefficient  for  Ions  term  variability  of 
lower  and  upper  beams. 
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5.13  LTCORR 

Subprograa  naaeS  Subroutine  LTCORR 

Purpose4.  Computes  correction  factor  for  SNR  due  to  decorrelation  of 

Ions  ten  variability  between  upper  and  lower  beans.  (Andie  diversity 
only. ) 

Calling  seouence4 

CALL  LTCORR  (CORFAC) 

Contained  in  aodulel  LTCORR 

Called  by 4  TROPO 

Calls4.  NONE 

Input  arguments? 

NONE 

Output  arguments4 

CORFAC  R*4  Correction  factor  computed  by  LTCORR.  CORFAC  is  used 
in  subroutine  8ER0AL  to  scale  STSNR  aultiplicatively 
when  andle  diversity  is  used. 

Global  variables  input  fro*  comaon? 

A  /PATHGE/  R*4  TROCOM.INC 

Effective  earth  radius  in  aeters. 

ALFAO  /PATHGE/  R*4  TROCOM.INC 

Hiniaua  transait  antenna  elevation  angle  aeasured  froa 
transaitter-to-receiver  line  to  transait  horizon  line 
in  radians. 

D  /PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transaitter  and  receiver 
aeasured  at  sea  level  in  aeters. 

DIVTYP  /MC0M2/  1*2  MCOM.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas!  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna?  2A  2F  2F/2A 

2=2  transaitf 

2  receive  antennas?  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  paraaeters 

S  =  Space  F  =  Freouency  A  =  Angle  P  =  Polarization 
HCOM  /PATHGE/  R*4  TROCOM.INC 

Effective  height  of  the  bottoa  of  the  coaaon  voluae  in 
aeters. 

HRN  /PATHGE/  R*4  TROCOM.INC 

Receive  antenna  height  above  sea  level  in  meters. 

LERR  /LUNS/  1*2  LUNS.INC 
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G(.»7)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  =  11 

Q(.»l)  Power  on  lower  bean  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  bean  vs.  delay. 

Q(.»3)  Power  on  upper  bean  vs.  delay 
G(.»7)  Power  on  diffraction  path  vs.  delay. 

For  DIVTYP  =  21 

Q(.tl)  Power  on  path  1  (lower  bean)  vs.  delay. 
Q(.»2)  Correlation  between  convergent  paths 
(lower  bean)  vs.  delay. 

G(.»3)  Correlation  between  divergent  paths 
(lower  bean)  vs.  delay. 

Q(.»4)  Correlation  between  parallel  paths 
(lower  bean)  vs.  delay. 

Q(.#5)  Correlation  between  crossing  paths 
(lower  bean)  vs.  delay. 

Q(.»4)  Power  on  path  of  upper  beam  vs.  delay. 
Q(.»7)  Power  on  diffraction  path  vs.  delay. 
GCORR(NCORNX)  /PBATA/  R*4  POATA.INC 

Contains  elenents  of  covariance  natrixt  ie>  powers  end 
correlations. 

For  DIVTYP  ~  01 

QCORR(l)  Power  on  lower  bean 

QC0RRC2)  Correlation  coefficient  between  lower 
and  upper  bean. 

QC0RR<3)  Correlation  coefficient  between  lower 
beans  of  antennas  1  and  2 
QCGRR<4)  Power  on  upper  bean. 

For  DIVTYP  =  15 

QCORR(l)  Power  on  lower  bean 

QC0RR(2)  Correlation  coefficient  between  lower 
and  upper  bean. 

QC0RR(3)  Power  on  upper  bean. 

For  DIVTYP  =  2*. 

QCORR(l)  Power  on  path  1  (lower  bean) 

QC0RR(2)  Correlation  coefficient  between  convergent 
paths . 

QC0RR(3)  Correlation  coefficient  between  divergent 
paths. 

QC0RR(4)  Correlation  coefficient  between  parallel 
paths . 

QC0RR(5)  Correlation  coefficient  between  crossins 
paths. 

QC0RR(6)  Power  on  upper  bean. 

TEMPA(NCORNX)  /PDATA/  R*4  PDATA. INC 

Array  of  average  troposcatter  signal  delays  for  each 
bean  relative  to  straight  line  in  seconds. 
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C  /PDATA/  R*4  PDATA.INC 

Proportionality  constant  in  troposcatter  path  loss 
calculation. 

DELPB  /PDATA/  R*4  PDATA.INC 

Resolution  of  a  delay  cell  in  seconds. 

FSEP  /PDATA/  R*4  PDATA.INC 

Freouency  separation  for  uncorrelated  freouency 
diversity  in  Hz. 

HCON  /PATHGE/  R*4  TROCOM.INC 

Effective  height  of  the  bottom  of  the  common  volume  in 
meters. 

IICORR(NCORHX)  /PDATA/  1*2  PDATA.INC 

Array  of  receiving  beams  involved  in  the  correlation 
calculations. 

I2C0RR(NC0RMX)  /PDATA/  1*2  PDATA.INC 

Array  of  receiving  beams  involved  in  the  correlation 
calculations. 

IBL0SS<6>  /CPLOSS/  1*2  CPL.INC 

Beam  number  corresponding  to  CPL(I). 

ICPL  /CPLOSS/  1*2  CPL.INC 

Coupling  loss  count. 

INEG  /PDATA/  1*2  PDATA.INC 

Number  of  negative  delay  cells  encountered  in 
troposcatter  integration.  It  is  an  error  if  INEG  >  0. 

IPOS  /PDATA/  1*2  PDATA.INC 

Number  of  delay  cells  exceeding  the  last  allocated 
array  element.  This  number  should  be  zero  or  small. 
IPOS  >  0  is  not  a  serious  error  unless  the  delay 
profile  calculated  has  a  clear  peak  in  the  last  delay 
cell . 

IPROF (NCORMX)  /PDATA/  1*2  PDATA.INC 

0  if  the  Ith  correlation  not  wanted.  1  if  wanted. 

ITER  /PDATA/  1*4  PDATA.INC 

Number  of  integration  cells  in  the  common  volume 
integration. 

NCORR  /PDATA/  1*2  PDATA.INC 

Number  of  receive  port  correlations. 

PLOSSH  /PDATA/  R*4  PDATA.INC 

Troposcatter  path  loss  from  approximate  analytic 
expression. 

Q ( NDELMX f NCORHX )  /PDATA/  R*4  PDATA.INC 

Matrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  profiles. 

For  DIVTYP  =  0J 

Q(.»l)  Power  on  lower  beam  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  beam  vs.  delay. 

Q(.»3)  Correlation  between  lower  beams 
in  antennas  1  S  2  vs.  delay. 

Q<.»4)  Power  on  upper  beam  vs.  delay. 
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NT 

PSIRAO<NRNX) 

PSIREO(NRHX) 


PSITAO(NTHX) 

PSITEO(NTHX) 


SCPARH 

THET 

THETAO 

TWOPI 
URN (NR) 

URL (NR) 

URV(NR) 

UTH(NT) 

UTL(NT) 

UTV(NT) 

UAVLEN 

Y1 


Number  of  receive  ports 4 
/SYSTRN/  1*2  TROCOH. INC 

Nuaber  of  transait  ports# 

/ANTENN/  RM  TROCOH.  INC 

Array  of  receiver  beaa  aziauths  in  radians. 

/ANTENN/  RM  TROCOH.  INC 

Array  of  receiver  beaa  boresisht  elevations  above 
radio  horizon  in  radians*  ie»  ansle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  aain  receive  antenna. 

/ANTENN/  RM  TROCOH.  INC 

Array  of  transaitter  beaa  aziauths  in  radians. 

/ANTENN/  RM  TROCOH.  INC 

Array  of  transaitter  beaa  boresidht  elevations  above 
radio  horizon  in  radians*  ie*  ansle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITEO(l) 
is  the  aain  transait  antenna. 

/PROPAR/  RM  TROCOH.  INC 

Wavenuaber  spectrua  slope  paraaeter  H.  Default  is 

3.66. 

/PATHGE/  RM  TROCOH.  INC 

Radio  horizon  elevation  ansle  at  transait  site  in 

radians. 

/PATHGE/  RM  TROCOH.  INC 

Scatterins  ansle  at  bottoa  of  coaaon  voluae  in 

radians. 

/CONSTA/  RM  CONSTANTS.  INC 

2  X  Pi  =  6.283185307. 

/PATHGE/  RM  TROCOH.  INC 

Array  of  receive  antennas  horizontal  offsets  froa 

Sreat  circle  plane  in  aeters. 

/PATHGE/  RM  TROCOH.  INC 

Array  of  receive  antennas  lonsitudinal  offsets  in 

aeters. 

/PATHGE/  RM  TROCOH.  INC 

Array  of  receive  antennas  vertical  offsets  in  aeters. 

/PATHGE/  RM  TROCOH.  INC 

Array  of  transait  antennas  horizontal  offsets  in 

aeters. 

/PATHGE/  RM  TROCOH. INC 

Array  of  transait  antennas  lonsitudinal  offsets  in 

aeters. 

/PATHGE/  RM  TROCOH. INC 

Array  of  transait  antennas  vertical  offsets  in  aeters. 
/SYSTRN/  RM  TROCOH.  INC 

Mavelensth  in  aeters. 

/PATHGE/  RM  TROCOH.  INC 

Haxiaua  estiaated  intesration  lenSth  in  Y-direction. 


Global  variables  output  to  coaaon 
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BETAO 

BETA1 

BW 

CO 

D 

BELREF 

ERR 

HLOM 

HTN 

IBR(NRHX.NRHX) 

IPOI.R(NRHX) 

IPOLT(NTMX) 

KPROF 

NACCU 

NCORNX 

NDELHX 

NR 


Array  of  receiver  antenna  diaaeters  in  aeters.  AR(1> 
is  eauivalent  to  RDIAH  in  the  input  file. 

/PATHGE/  R*4  TROCOH.INC 

Hiniaua  receive  antenna  elevation  anile  Measured  fro* 
receiver-to-transaitter  line  to  receiver  horizon  line 
in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Haxiaua  receive  antenna  elevation  anile  Measured  froM 
receiver-to-transeitter  line  to  top  of  commoo  voluae 
in  radians. 

/SYSTRN/  R*4  TROCOH.INC 

Bandwidth  in  Hertz.  Default  is  7  HHz. 

/CONSTA/  R*4  CONSTANTS. INC 

Free  space  velocity  of  radio  waves  =  2.998E8  m/spc. 

/PATHGE/  R*4  TROCOH.INC 

Great  circle  distance  between  transaitter  and  receiver 
Measured  at  sea  level  in  Meters. 

/PDATA/  R*4  PDATA. INC 

HiniMUM  delay  throuih  the  lowest  scatterini  point 

(relative  to  straiiht  line  delay)  in  seconds. 

/CONTROL/  R*4  TROCOH.INC 

CoaMon  voluae  inteiration  resolution.  Default  is  .001. 
/PRGPAR/  R*4  TROCOH.INC 

Lowest  heiiht  above  sea  level  at  which  CN2  is 
specified  in  Meters. 

/PATHGE/  R*4  TROCOH.INC 

Transeit  antenna  heiiht  above  sea  level  in  Meters. 
/SYSTRN/  1*2  TROCOH.INC 

Channel  coaplex-envelope  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  *  Power  (correlation)  calculation  only 

2  =  Power  (correlation)  per  unit  delay 

spectruM  calculation 
/ANTENN/  1*2  TROCOH.INC 

Array  of  receiver  antenna  polarizations. 

/ANTENN/  1*2  TROCOH.INC 

Array  of  transaitter  antenna  polarizations. 

/PROPAR/  1*2  TROCOH.INC 

Actual  nuMber  of  saaples  in  heiiht  profile  of 

structure  constant  CN2.  Liaited  to  NPROF  saaples. 

/CONTRL/  1*2  TROCOH.INC 

Paraaeter  used  as  truncation  point  for  coaaon 

voluae  inteiration  teraination.  Default  is  40. 

ParsMeter  1*2  TROPAR.INC 

Haxiaua  nuaber  of  correlations  between  receive  ports. 
Paraaeter  1*2  TROPAR.INC 

Haxiaua  nuaber  of  delay  bins  in  troposcatter  power  per 
unit  delay  profiles. 

/SYSTRN/  1*2  TROCOH.INC 
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5.12  LOOPS 

Subprogram  name:  Subroutine  LOOPS 

Purpose'  This  is  the  key  routine  performing  the  integration  over  the 
common  volume  to  calculate  received  power  vs.  delay  at  all  specified 
antenna  ports  and  the  convolutions  between  antenna  ports  vs.  delaw  at 
all  specified  antenna  ports. 

Description*  A  certain  amount  of  the  code  is  keeping  track  of  which 

antenna  locations  are  different*  eg*  space  diversity*  which  antenna 
beams  point  differently*  ie*  angle  diversity*  which  correlations 
involve  space-*  angle-*  or  polarization  diversity.  The  number  of 
correlations  is  NCORR*  and  for  each  correlation*  ICORR*  the  arrays 
I1C0RR  and  I2C0RR  point  to  the  receiving  ports  involved  in  the 
integration  of  correlation  number  ICORR.  An  analytical  path  loss 
estimate*  PLOSSN*  is  evaluated.  Power  levels  and  correlation 
coefficients  are  stored  in  the  array  QCORR.  Average  delay 
(normalized)  and  delay  spread  are  in  the  arrays  TENPA  and  TEMPB.  The 
freouency  separation  which  corresponds  to  a  freouency  correlation 
coefficient  of  .5  is  evaluated. 

Calling  seouenceS 
CALL  LOOPS 

Contained  in  module:  LOOPS 

Called  by'.  TReru 

Calls:  ANTPTR*  BEAMPT*  DELO*  ERROR*  FROSEP*  RGAIN*  RIPROF*  SINT* 

STEPAB.  STEPY*  STPPAR*  TGAIN*  TRLOSS 

Input  arguments: 

NONE 

Output  arguments. 

NONE 

Global  variables  input  from  common* 

A  /PATHGE/  RM  TROCON.INC 

Effective  earth  radius  in  meters. 

ALFAO  /PATHGE/  RM  TROCON.INC 

Minimum  transmit  antenna  elevation  angle  measured  from 
transmitter-to-receiver  line  to  transmit  horizon  line 
in  radians. 

ALFA1  /PATHGE/  RM  TROCON.INC 

Maximum  transmit  Bntenna  elevation  angle  measured  from 
transmitter-to-receiver  line  to  top  of  common  volume 
in  radians. 

AR(NRMX)  /ANTENN/  RM  TROCON.INC 
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Diffraction  ansle  in  radians* 

Y1  /PATHGE/  R*4  TROCON.INC 

Maxiau*  estimated  integration  length  in  Y-direction. 
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ERR 

HRN 

HTN 

NR 

NT 

PSIRAO(NRHX) 

PSIREO(NRHX) 

PSITAO(NTHX) 

PSITEO(NTMX> 

SCPARN 

THER 

THET 

THETAO 

Global  variables 
ALFA1 

BETA1 

HHIGH 

PHI 


/CONTROL/  R*4  TROCOH.INC 

Coaaon  voluae  integration  resolution*  Default  is  *001. 

/PATHGE/  R*4  TROCOH.INC 

Receive  antenna  height  above  sea  level  in  aeters. 

/PATHGE/  R*4  TROCOH.INC 

Transmit  antenna  height  above  sea  level  in  aeters. 

/SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  receive  ports. 

/SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  transait  ports. 

/ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beaa  aziauths  in  radians. 

/ANTENN/  R*4  TROCOH.INC 

Arras  of  receiver  beaa  boresisht  elevations  above 
radio  horizon  in  radians.  ie»  anale  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 
is  the  aain  receive  antenna. 

/ANTENN/  R*4  TROCOH.INC 

Arras  of  transaitter  beaa  aziauths  in  radians. 

/ANTENN/  R*4  TROCOH.INC 

Arras  of  transaitter  beaa  boresisht  elevations  above 
radio  horizon  in  radians.  ie»  angle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITEO(l) 
is  the  aain  transait  antenna. 

/PROPAR/  R*4  TROCOH.INC 

Wavenuaber  spectrua  slope  paraaeter  H.  Default  is 

3.66. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  anSle  at  receive  site  in 

radians. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  angle  at  transait  site  in 

radians. 

/PATHGE/  R*4  TROCOH.INC 

Scattering  anale  at  bottoa  of  coaaon  voluae  in 

radians. 

output  to  coaaon. 

/PATHGE/  R*4  TROCOH.INC 

Haxiaua  transait  antenna  elevation  angle  aeasured  froa 
transaitter-to-receiver  line  to  top  of  coaaon  voluae 
in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Haxiaua  receive  antenna  elevation  anale  aeasured  froa 
receiver-to-transaitter  line  to  top  of  coaaon  voluae 
in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Effective  height  of  the  top  of  the  coaaon  voluae  in 

aeters. 

/PATHGE/  R*4  TROCOH.INC 
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5.11  INTLIM 

Subprogram  name!  Subroutine  INTLIH 

Purpose!  Calculates  the  limits  of  coaaon  volume  integration. 

Calculates  the  maximum  value*  ALFAi*  of  the  angle  ALFA*  the  aaxiaua 

value*  BETA1*  of  the  angle  BETA*  the  aaxiaua  height  of  the  coaaon 

voluae*  HHIGH*  and  the  aaxiaua  value  Y1  of  the  Y  coordinate 

(perpendicular  to  the  great  circle  plane*) 

Calling  seouence! 

CALL  INTLIH 

Contained  in  aodule!  INTLIH 

Called  by!  TROPO 

Calls!  NONE 

Input  arguments! 

NONE 

Output  arguments! 

NONE 

Global  variables  input  froa  coaaon! 

A  /PATHGE/  RM  TROCOH.INC 

Effective  earth  radius  in  meters. 

ALFAO  /PATHGE/  RM  TROCOH.INC 

Hiniaua  transait  antenna  elevation  angle  aeasured  froa 
transaitter-to-receiver  line  to  transait  horizon  line 
in  radians* 

BETAO  /PATHGE/  RM  TROCOH.INC 

Hiniaua  receive  antenna  elevation  angle  aeasured  froa 
receiver-to-transaitter  line  to  receiver  horizon  line 
in  radians. 

D  /PATHGE/  RM  TROCOH.INC 

Great  circle  distance  between  transmitter  and  receiver 
aeasured  at  sea  level  in  meters. 

DELTAR(NRHX)  /ANTENN/  RM  TROCOH.INC 

3dB  half-beaawidth  of  each  receive  antenna  in  radians. 

DELTAT(NTHX)  /ANTENN/  RM  TROCOH.INC 

3dB  half-beaawidth  of  each  transmit  antenna  in 
radians. 

DR  /PATHGE/  R*4  TROCOH.INC 

Receiver  distance  to  minimum  scattering  point  in 
meters. 

DT  /PATHGE/  RM  TROCOH.INC 

Transait  antenna  distance  to  ainiaua  scattering  point 
in  meters. 
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5.10  HORANG 

Subprograg  naaeJ  Subroutine  HORANG 

Purpose:  Compute  horizon  elevation  angle  fro*  given  horizon  distance 

and  height* 

Calling  seouence* 

CALL  HORANG  (A*  D>  H.  T) 

Contained  in  godule:  HORANG 


Called  by*.  TANGL>  TRANSF 
Calls!  NONE 


Input  arguments: 
A  R*4 


0  R*4 

H  R*4 


Radius  of  the  earth  plus  height-  of  the  antenna  in 
geters. 

Horizon  distance  in  geters* 

Horizon  height  above  the  antenna  height  in  geters. 


Output  argugents 
T  R*4 


Horizon  elevation  angle  (position  above  grazing)  in 
radians* 
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5.9  GPATT 

Subprograa  naae!  Subroutine  GPATT 

Purpose!  Voltage  directional  pattern  type  2J1(X>  /  X.  Calculates  the 
voltage  sain  pattern  up  to  and  including  the  first  sidelobe  using  the 
foraula* 

G  =  2  *  JHX)  /  X. 

Where* 

X  is  PI  t  AD  *  SJN(PSI)  /  WAVLEN 
AD  is  the  antenna  diaaeter 
PSI  is  the  angle 

To  use  other  antenna  patterns*  GPAT1  may  be  replaced  by  other 
subroutines  in  RGA1N  and  TGAIN. 

Calling  seouence*. 

CALL  GPATT  (AD*  WAVLEN.  PSI.  Y) 

Contained  in  Module*  GPATT 

Called  by!  RGAIN*  TGAIN 

Calls!  NONE 

Input  arguaentst 

AD  Rt4  Antenna  diaaeter  in  aeters. 

WAVLEN  R*4  Wavelength  in  aeters. 

PSI  R*4  Off-boresisht  angle  in  radians* 

Output  arSuaents! 

Y  R*4  Relative  voltage  gain  at  off-boresisht  angle  PSI. 

Global  variables  input  froa  coaeon*. 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592A54. 
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5*8  FRQSEP 

Subprograa  naae*  Subroutine  FRQSEP 

Purpose*  Coapute  ainiaua  freouency  separation  reouired  for  uncorrelated 

freouency  diversity  operation. 

Call ins  seouence* 

CALL  FRQSEP  <N»  Q»  DELPBi  BW>  FSEP) 

Contained  in  aodule*  FRQSEP 
Called  by*.  LOOPS 
Calls?  NONE 


Input  arsuaentsi 

N  1*2  Nuaber  of  points  in  OFT. 

Q(N)  R*4  Power  per  unit  delay  profile. 

DELPB  R*4  Belay  interval  in  seconds. 

BU  R*4  Signal  bandwidth  in  Hz. 

FSEP  RM  Estiaate  of  coherance  bandwidth  in  Hz. 


Output  arsuaentsl 

FSEP  R*4  Hiniaua  freouency  separation  in  Hz. 


TROPOSCATTER  CALCULATIONS  PaSe  15- 

Subroutine  POWER 

Proportionality  constant  in  troposcatter  path  loss 
calculation. 

CO  /CONSTA/  R*4  CONSTANTS. INC 

Free  space  velocity  of  radio  waves  =  2.9V8E8  m/sec. 

CORRLT  /CPLOSS/  R*4  CPL.INC 

Correlation  coefficient  for  Ions  ter*  variability  of 
lower  and  upper  beats. 

CPL(<S>  /CPLOSS/  R*4  CPL.INC 

Aeerture-to-medium  coupling  loss  array  in  dB. 

D  /PATHGE/  ft*4  TROCOH.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  meters. 

DELPP  /PDATA/  R*4  PDATA . INC 

Resolution  of  a  delay  cell  in  seconds. 

DELREF  /PDATA/  R*4  PDATA. INC 

Hinimum  delay  through  the  lowest  scattering  point 
(relative  to  straight  line  delay)  in  seconds. 

DELTAR(NRNX)  /ANTENN/  R*4  TROCOH.INC 

3dB  half-beamwidth  of  each  receive  antenna  in  radians. 

DELTAT (NTNX)  /ANTENN/  R*4  TROCOH.INC 

3dP  half-beatwidth  of  each  transmit  antenna  in 
radians . 

DIVTYP  /HC0H2/  1*2  MCOH.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas!  2S  2S/2F  2S/2A  ;S/2A/2F 

1=1  receive  antenna.  2A  2F  2F/2A 

2=2  transmit. 

2  receive  antennas.*  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freouency  A  =  Angle  P  =  Polarization 

DLR  /PATHGE/  R*4  TROCOH.INC 

Distance  from  receiver  to  radio  horizon  in  meters. 

DLT  /PATHGE/  R*4  TROCOH.INC 

Distance  from  transmitter  to  radio  horizon  in  meters. 

DRATE  /HC0H4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.AE6. 

ERFAC  /PROPAR/  R*4  TROCOH.INC 

Yearly  median  value  of  effective  earth  radius  factor  k 
in  kilometers.  Default  is  1.33. 

F  /SYSTRN/  R*4  TROCOH.INC 

Operating  freouency  in  Hz.  Hodel  is  accurate  between 
lOOHHz  and  10GHz. 

GRDB(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Gain  of  each  receive  antenna  in  dBi. 

GTDB(NTHX)  /ANTENN/  R*4  TROCOH.INC 

Gain  of  each  transmit  antenna  in  dBi, 

HI ( 155)  /HC0H4/  R*4  HCOH.INC 

Array  containing  NPH(l)  evenly-spaced  terrain 
elevation  data  (in  meters)  between  transmitter  and 
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HRN 

HTN 

IBL0SS(6) 

ICPL 

ITER 

KLIHAT 


LERR 


first  obstacle  followed  by  NPH(2)  evenly-spaced 
terrain  elevation  data  between  first  and  second 
obstacle*  etc.*  ending  with  NPM(N0BS+1)  evenly-spaced 
terrain  elevation  data  between  last  obstacle  and 
receive  site.  The  data  should  be  selected  such  that: 

HI(1)  =  Terrain  elevation  above  sea  level  at 
transmit  site  (HTO). 

HI (NPH< I ) )  =  HI  <NPM( T  >  +  l )  =  Elevation  of  Ith 
obstacle  above  sea  level  (HL(I)). 

HI (NPH(N0BS+1 ) )  =  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  HDTS*  HI  is  used  as  work  space.  It  is  eouivalenced 
to  local  arrays. 

/PATHGE/  R*4  TROCOH.INC 

Receive  antenna  height  above  sea  level  in  Meters. 

/PATHGE/  R*4  TROCOH.INC 

Transait  antenna  height  above  sea  level  in  Meters. 

/CPLOSS/  1*2  CPL.INC 

BeaM  nuMber  corresponding  to  CF'L(I), 

/CPLOSS/  1*2  CPL.INC 

Coupling  loss  count. 

/PBATA/  1*4  PDATA. INC 

NuMber  of  integration  cells  in  the  commoo  volume 

integration. 

/PROPAR/  1*2  TROCOH.INC 

Climate  zone  indicator.  Default  is  0. 

0  =  User  supplied  climate 
NBS  TN101  climates 

1  =  Continental  temperate  (CT) 

2  =  Haritime  temperate  overland  (HTL) 

3  *  Haritime  temperate  oversea  (HTS) 

4  =  Maritime  subtropical  overland  (HSL) 

5  =  Continental  temperate  time  block  2  (CT2) 

(winter  afternoon  hours)  -  formerly 
Haritime  subtropical  oversea  (MSS) 

6  =  Desert*  Sahara  (BS) 

7  =  Esuatorial  (EQU) 

8  =  Continental  subtropical  (CS) 

MIL-HBBK-417  climates 

9  =  Continental  temperate  (CT) 

10  =  Maritime  temperate  overland  (HTL) 

11  =  Haritime  temperate  oversea  (MTS) 

12  =  Haritime  subtropical  (MS) 

13  =  Desert*  Sahara  <DS) 

14  =  Equatorial  (EQU) 

15  *  Continental  subtropical  (CS) 

16  =  Mediterranean  (HED) 

17  =  Polar  (POL) 

/LUNS/  1*2  LUNS.INC 

Error  output  unit. 
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LOUT 

MDIST 


NCORR 

NDELMX 

NFI6 

NOBS 

NPM( 5) 

NRAD 

NTERR 


I 


PRADO) 


PSIREO(NRHX) 


PSITEO(NTMX) 


PXNIT 


/LUNS/  1*2  LUNS .INC 

F0R002.DAT  output  unit  number. 

/ERAD/  1*2  ERAD.INC 

Multipath  distribution  indicator, 

0  =  Only  median  multipath  spread  used(def ault) 
1  =  Hultipath  distribution  used*  (Option  not 
currently  available.) 

/PDATA/  1*2  PDATA. INC 

Number  of  receive  port  correlations. 

Parameter  1*2  TROPAR.INC 

Maximum  number  of  delay  bins  in  troposcatter  power  per 
unit  delay  profiles. 

/MC0M4/  R*4  HCOH.INC 

Receiver  noise  figure  in  dB.  Default  is  4dB. 

/NC0M2/  1*2  NCOM.INC 

Number  of  diffraction  obstacles.  Maximum  is  3> 

default  is  1* 

/NC0N2/  1*2  NCOM.INC 

Array  containing  number  of  terrain  elevation  data 
points  for  calculation  of  effective  antenna  heights 
for  each  section  of  the  diffraction  path. 

/ERAD/  1*2  ERAD.INC 

ERFAC  indicator  and  loop  counter,  Default  is  1. 

/HCQM2/  1*2  HCOH.INC 

Control  parameter  for  entry  or  calculation  of 

effective  antenna  heights  (HTE*  HRE)  and  effective 

obstacle  heights  above  average  terrain  elevation 

(HLEF). 


0  =  HTE  and  HRE  supplied  directly 

1  =  AVETX  and  AMERX  supplied 

2  *  HI(.)  supplied 

/ERAD/  R*4  ERAD.INC 

Fraction  of  time  effective  earth  radius  factor  is 
greater  than  ERFACf  Probability  that  effective  earth 


radius  factor  is  not  exceeded. 

For  NRAD  =  1  PRAD  =0.5 


/ANTENN/ 


=2  =0.1 

=3  =  0.01 

R*4  TR0C0H. INC 


Array  of  receiver  beam  boresisht  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSIREO(l) 
is  the  main  receive  antenna. 

/ANTENN/  R*4  TR0C0M.INC 


Array  of  transmitter  be3i»  boresight  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSITEO(l) 
is  the  main  transmit  antenna. 

/HC0M4/  R*4  HCOH.INC 

Rated  transmission  power  in  dBm.  Default  is  7(>dBm. 
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QCORR(NCORHX)  /PDATA/  R*4  PDATA . INC 

Contains  elements  of  covariance  matrix?  ie?  powers  and 
correlations  . 

For  DIVTYP  =  05 

QCORR(l)  Power  on  lower  beam 
QC0RR<2)  Correlation  coefficient  between  lower 
and  upper  beam. 

QC0RR<3)  Correlation  coefficient  between  lower 
beats  of  antennas  1  and  2 
GCGRR<4)  Power  on  upper  beam. 

For  DIVTYP  =  It 

QCORR(l)  Power  on  lower  beam 
QC0RR(2)  Correlation  coefficient  between  lower 
and  upper  beat* 

QC0RR<3)  Power  on  upper  beat. 

For  DIVTYP  =  2t 

QCORR(l)  Power  on  path  1  (lower  beat) 

QC0RR(2)  Correlation  coefficient  between  convergent 
paths. 

QC0RR(3)  Correlation  coefficient  between  divergent 
paths . 

QCORR ( 4 )  Correlation  coefficient  between  parallel 
paths. 

QC0RR(5)  Correlation  coefficient  between  crossing 
paths. 

0C0RR(6)  Power  on  upper  bean. 

RLL  /SYSTRN/  R*4  TR0C0M.INC 

Receiver  line  losses  in  dB.  Default  is  0  dB. 

SP  /HC0N4/  R*4  MCOM.INC 

Service  probability.  Default  is  .95, 

SPREAD(NCORMX)  /PDATA/  R*4  PDATA. INC 

Array  of  delay  spreads  (2-sigfia)  for  each  beat  in 
seconds. 

TEMPA(NCORMX)  /PDATA/  R*4  PDATA. INC 

Array  of  average  troposcatter  signal  delays  for  each 
beat  relative  to  straight  line  in  seconds. 

THER  /PATHGE/  R*4  TR0C0M.INC 

Radio  horizon  elevation  angle  at  receive  site  in 
radians. 

THET  /PATH6E/  R*4  TR0C0M.INC 

Radio  horizon  elevation  angle  at  transmit  site  in 
radians • 

TLL  /SYSTRN/  R*4  TR0C0M.INC 

Transmitter  line  losses  in  dB.  Default  is  0  dB. 

Global  variables  output  to  common! 

AVERX  /NCGH4/  R*4  MCOM.INC 

Average  terrain  elevation  above  sea  level  between 
receive  site  and  radio  horizon?  in  meters. 

AVETX  /MC0M4/  R*4  MCOM.INC 
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Average  terrain  elevation  above  sea  level  between 
transmit  site  and  radio  horizons  in  meters. 

DE  /SUHP/  R*4  CURVE  *  INC 

Effective  distance  for  troposcatter  path  in 
kilometers. 

0SP1(3)  /SUHP/  R*4  CURVE. INC 

Lower  bean  troposcatter  signal  RMS  delay  spread  in 
nanoseconds  for  percentiles  50»  VO  and  99, 

DSP2(3)  /SUMP/  R*4  CURVE. INC 

Upper  besa  troposcatter  sisnal  RMS  delay  spread  in 
nanoseconds  for  percentiles  50»  90  and  99. 

HRE  /HC0M4/  R*4  MCOM.INC 

Effective  receiver  antenna  height  above  average 
terrain  elevation  in  meters. 

HTE  /MC0M4/  R*4  MCOM.INC 

Effective  transaitter  antenna  height  above  average 
terrain  elevation  in  aeters. 

JQ2M  /MC0M4/  1*2  MCOM.INC 

Pointer  to  centroid  of  lower  besa  troposcatter  signal 
power  per  unit  delay  profile. 

KGAIN  /RZ/  1*2  RZ.INC 

Integer  ratio  of  bandwidth  to  data  rate. 

MODPAT  /MC0M2/  1*2  MCOM.INC 

Propasation/aodea  flag  to  select  calculation  aode. 
Default  is  1. 

0  =  Propagation  only 

1  =  Propagation  +  MD-918  eodem 

2  =  Propagation  +  AN/TRC-170  or  DAR  modem 

3  =  Propagation  +  user-defined  eodem 

NDELQ  /MC0M4/  1*2  MCOM.INC 

Nuaber  of  non-zero  eleaents  of  troposcatter  power  per 
unit  delay  profiles  GKNDELQrl). 

PL0SS1  /ERAD/  R*4  ERAD.INC 

Reference  troposcatter  path  loss  in  dB  on  lower  beam 
for  NRAD  eouels  1, 

G(NDELMX.NCORMX)  /PDATA/  R*4  PDATA. INC 

Matrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  profiles. 

For  DIVTYP  =  05 

Q(.»l>  Power  on  lower  beam  vs,  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  beaa  vs.  delay, 

Q<.»3)  Correlation  between  lower  beams 
in  antennas  1  l  2  vs.  delay. 

Q(.*4)  Power  on  upper  beam  vs.  delay. 

Q(.*7)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  =  15 

Q(.tl)  Power  on  lower  beaa  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  beaa  vs.  delay. 
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Q(.»3)  Power  on  upper  bean  vr».  delaw 

Q(,»7)  Power  on  diffraction  path  vs.  delaw. 

For  DIVTYP  =  25 

Q(.»l)  Power  on  path  1  (lower  bean)  vs.  delaw. 

Q(.i2)  Correlation  between  conversant  paths 
(lower  beat)  vs.  delaw. 

Q(.»3)  Correlation  between  diverSent  paths 
(lower  bean)  vs.  delaw. 

Q(,»4)  Correlation  between  parallel  paths 
(lower  beat)  vs.  delaw. 

Q(.i5)  Correlation  between  crossins  paths 
(lower  bean)  vs.  delaw. 

Q(.»£)  Power  on  path  of  upper  bean  vs.  delaw. 

Q(,»7)  Power  on  diffraction  path  vs.  delaw. 

STSNR  /SUHP/  R*4  SUMP. INC 

Standard  deviation  of  troposcatter  siSnal  lons-term 
SNR  distribution  in  dB. 

TDIFF  /MC0H4/  R*4  MCOM.INC 

Normalized  relative  delaw  between  lower  and  upper 
beaa. 

TR0L0S(3)  /SUMP/  R*4  CURVE. INC 

Median  troposcatter  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

TR0RSL(3)  /SUMP/  R*4  CURVE. INC 

Median  troposcatter  RSL  in  dB»  for  each  value  in  ERFAC 
distribution. 
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5.15  RGAIN 

Subprogram  name!  Function  RGAIN 

Purpose!  Relative  voltage  sain  for  receive  aperture  I  at  the  off- 
boresiSht  anSle  PSI. 

Calling  seouence! 

RGAIN  ( I .  PSI) 

Contained  in  nodule!  RGAIN 

Called  by!  DIFSNR*  LOOPS 

Calls!  GPATT 

Input  argunents! 

I  1*2  Receiving  aperture  index. 

PSI  R*4  Off-boresiSht  angle  in  radians. 

Output  arguments! 

RGAIN  R*4  Relative  voltage  gain  for  given  receive  aperture. 

Global  variables  input  from  coneon! 

AR(NRHX)  /ANTENN/  R*4  TROCOM.INC 

Arrau  of  receiver  antenna  dianeters  in  neters.  AR(1) 
is  eoui valent  to  R'KIAH  in  the  input  file. 

WAVLEN  /SYSTRN/  R*4  TROCOM.INC 

Wavelength  in  neters. 


f 


* 
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5.16  RIPROF 

Subprogram  name:  Subroutine  RIPROF 

Purpose*  Calculates  a  normalized  CN2  value  for  a  given  point  ALFA. 
BETA*  Used  when  refractive  index  profile  is  input  bw  the  user. 

Calling  seouencet 

CALL  RIPROF  (HEIGHT.  CN21.0C) 

Contained  in  module.*  RIPROF 

Called  by 5  LOOPS 

Calls:  ERROR 

Input  arguments* 

HEIGHT  R*4  Height  above  sea  level  of  the  current  scattering 
point. 


Output  arguments: 
CN2L0C  R*4 


Normalized  CN2  value. 


Global  variables  input  from  common: 


CN21NPR0F) 


BELN 


KPROF 


/PROPAfi/  R*4  TROCOM . INC 

The  atmospheric  structure  constant  height  profile  in 
meters  to  the  -2/3  power. 

/PRQPAR/  R*4  TROCOM. INC 

Spacing  of  CN2  samples  in  meters. 

/PROPAR/  1*2  TROCOM. INC 

Actual  number  of  samples  in  height  profile  of 

structure  constant  CN2.  Limited  to  NPROF  samples. 
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5.17  STEPAB 

Subprogram  name!  Function  STEPAB 

Purpose!  Calculates  step  size  of  alpha  or  beta  for  a  given  scattering 
point. 

Calling  seouence! 

STEPAB  (THETA) 

Contained  in  module!  STEPAB 

Called  bv!  LOOPS 

Calls!  NONE 

Input  arguments! 

THETf  R*4  Scattering  angle  at  bottom  of  common  volume  in 
radians. 

Output  arguments! 

STEPAB  R*4  Step  size  of  alpha  or  beta. 

Global  variables  input  from  common! 


BEAH 

/STPCOM/ 

R*4 

STPCOM. INC 

Parameter 

for  determining  azimuth  and  elevation  angle 

step  size 

in  common 

volume  integration. 

TFAK 

/STPCOM/ 

R*4 

STPCOM. INC 

Constant 

for  common 

volume  integration. 
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5.18  STEPY 


Subprosrak  nake!  Function  STEPY 

Purpose*  Calculates  the  step  size  in  the  Y  direction. 

Calling  Scouence*. 

STEPY  ( THETA»  Y»  ROT,  ROR) 

Contained  in  nodule!  STEPY 

Called  by!  LOOPS 

Calls!  NONE 


Input  arguments! 
THETA  R*4 

Y  R*4 

ROT  R*4 

ROR  R*4 


Scattering  angle  at  point  of  integration. 

Y  coordinate. 

Distance  from  transkitter  to  point  of  integration. 
Distance  fro*  receiver  to  point  of  integration. 


Output  arguments! 

STEPY  R*4  Step  size  in  the  Y  direction. 
Global  variables  input  fro*  co**on! 


TFAKY1 

/STPCOh/ 

R*4 

STPCOH. INC 

Constant 

for 

cokkon 

volume  integration. 

TFAKY2 

/STPCOH/ 

R*4 

STPCOH. INC 

Constant 

for 

cokkon 

voluke  integration. 

TFAKY3 

/STPCOH/ 

R*4 

STPCOH. INC 

Constant 

for 

cokkon 

voluke  integration. 

TFAKY4 

/STPCOH/ 

Rt4 

STPCOH. INC 

Constant 

for 

cokkon 

voluke  integration. 
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5.19  STPPAR 

Subprogram  name!  Subroutine  STPPAR 

Purpose}  Initializes  parameters  reouired  to  determine  step  size  of 

alpha*  beta  and  Y  in  the  common  volume  integration.  Refines  step  size 

for  space  diversity  correlation. 

Calling  seouence! 

CALL  STPPAR 

Contained  in  module!  STPPAR 

Called  bs!  LOOPS 

Calls!  NONE 

Input  arguments! 

NONE 

Output  arguments! 

NONE 

Global  variables  input  from  common! 

DELTAR(NRMX)  /ANTENN/  R*4  TROCOM.INC 

3dB  half-beamwidth  of  each  receive  antenna  in  radians. 

BELTAT(NTMX)  /ANTENN/  R*4  TROCOM.INC 

3dB  half-beamwidth  of  each  transmit  antenna  in 
radians. 

DR  /PATHGE/  R*4  TROCOM.INC 

Receiver  distance  to  minimum  scattering  point  in 
meters. 

DT  /PATHGE/  R*4  TROCOM.INC 

Transmit  antenna  distance  to  minimum  scattering  point 
in  meters. 

ERR  /CONTROL/  R*4  TROCOM.INC 

Common  volume  integration  resolution.  Default  is  .001. 

IBR(NRMX.NRMX)  /SYSTRN/  1*2  TROCOM.INC 

Channel  complex-envelope  correlation  and 
cross-correlation  calculation  indicator  arras. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  onls 

2  *  Power  (correlation)  per  unit  delas 

spectrum  calculation 

IPOLR(NRMX)  /ANTENN/  1*2  TROCOM.INC 

Arras  of  receiver  antenna  polarizations. 

NR  /SYSTRN/  1*2  TROCOM.INC 

Number  of  receive  ports. 

NT  /SYSTRN/  1*2  TROCOM.INC 

Number  of  transmit  ports. 
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SCPARM 


TWOPI 


URH(NR) 


UTH<NT) 


WAVLEN 


/PROPAR/  R*4  TROCOM. INC 

Wavenumber  spectrum  slope  parameter  H.  Default  is 

3.66. 

/CONSTA/  R *4  CONSTANTS. INC 

2  X  Pi  =  6.283185307. 

/PATHGE/  R*4  TROCOM. INC 

Array  of  receive  antennas  horizontal  offsets  from 

great  circle  plane  in  meters. 

/PATHGE/  R*4  TROCOM. INC 

Arras  of  transmit  antennas  horizontal  offsets  in 

meters. 

/SYSTRN/  Rt4  TROCOM. INC 

Wavelength  in  meters. 


Global  variables  output  to  common! 

BEAM  /STPCON/ 

Parameter  foi 
step  size  in 

TFAK  /STPCOM/ 

Constant  for 

TFAKY1  /STPCOM/ 

Constant  for 

TFAKY2  /STPCOM/ 

Constant  for 

TFAKY3  /STPCOM/ 

Constant  for 

TFAKY4  /STPCOM/ 

Constant  for 


R*4  STPCOM. INC 

r  determining  azimuth  and  elevation  anale 
common  volume  integration. 

R*4  STPCOM. INC 

common  volume  integration. 

R*4  STPCOM. INC 

common  volume  integration. 

R*4  STPCOM. INC 

common  volume  integration. 

R*4  STPCOM. INC 

common  volume  integration. 

R*4  STPCOM. INC 

common  volume  integration. 
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5.20  TGAIN 


Subprogram  name! 


Function  TGAIN 


Purpose*  Calculates  relative  voltage  Sain  for  transait  aperture  I  at 
the  off-boresiaht  ansle  PSI. 


Calling  seauence* 

TGAIN  <I»  PSI) 

Contained  in  Module!  TGAIN 

Called  by*.  DIFSNR t  LOOPS 


Calls! 


GPATT 


Input  arsuaents! 

I  1*2 

PSI  R*4 

Output  arsuaents: 
TGAIN  R*4 


Transait  aperture  index. 

Of f-boresisht  ansle  in  radians, 


Relative  voltase  Sain  for  siven  transait  aperture. 


Global  variables  input  froa  coaaon’, 

AT(NTMX)  /ANTENN/  R*4  TROCOM.INC 

Array  of  transaitter  antenna  diameters  in  aeters. 
AT(1)  is  eauivalent  to  TDIAM  in  the  input  file, 
WAVLEN  /SYSTRN/  R*4  TROCOM.INC 

Wavelength  in  aeters, 
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5.21  TRANSF 

Subprogram  name;  Subroutine  TRANSF 

Purpose?  Transfer*  angles  and  distances  to  effective  earth  radius  and 
calculate  scattering  point  assuming  that  at  each  site  all  antennas 
have  a  coaaon  horizon  and  ainiaum  scattering  point.  The  different 
antenna  heishts  are  ignored  in  the  calculation  of  the  common  voluae, 

Calling  seauence! 

CALL  TRANSF 

Contained  in  aodule!  TRANSF 

Called  by;  TROPO 

Calls!  ERROR.  HORANG 

Input  arguaentsJ 
NONE 

Output  arguaentsJ 
NONE 

Global  variables  input  froa  coaaon! 

A  /PATHGE/  R*4  TROCOH.INC 

Effective  earth  radius  in  aeters. 

AO  /CONSTA/  R*4  CONSTANTS. INC 

Radius  of  the  earth  in  aeters  =  6367650, 

D  /PATHGE/  R*4  TROCOH.INC 

Great  circle  distance  between  transaitter  and  receiver 
aeasured  at  sea  level  in  aeters. 

DELTAR(NRMX)  /ANTENN/  R*4  TR0C0M.INC 

3dB  half-beaawidth  of  each  receive  antenna  in  radians. 
DELTAT (NThX)  /ANTENN/  R*4  TROCOH.INC 

3dB  half-beaawidth  of  each  transmit  antenna  in 
radians. 

DLR  /PATHGE/  R*4  TROCOH.INC 

Distance  froa  receiver  to  radio  horizon  in  aeters. 

DLT  /PATHGE/  R*4  TROCOH.INC 

Distance  froa  transaitter  to  radio  horizon  in  aeters. 
ERFAC  /PROPAR/  R*4  TROCOH.INC 

Yearly  aedian  value  of  effective  earth  radius  factor  k 
in  kilometers.  Default  is  1.33. 

ITOFF  /PROPAR/  1*2  TR0C0H.INC 

Control  indicator  for  entry  or  calculation  of 
transait/receive  radio  horizon  angles  THET  and  THER. 
Values  have  following  meanings; 

0  =  Use  input  THET.  THER  as  reference  and 
actual  horizon  (default). 
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1  =  Calculate  reference  horizon  using  HORANG 

and  K  eouals  1.33*  (Assuaing  DLT  and  DLR 
are  non-zero.)  (Option  not  available.) 

2  =  Calculate  reference  horizon  using  HORANG 

and  K  eouals  ERF  AC.  (Assuming  DLT  and  Dt.R 
are  non-zero.) 

3  =  Do  not  change  reference  horizons  froa 

previous  run.  (Option  not  available.) 

NR  /SYSTRN/  1*2  TROCOM.INC 

Nuaber  of  receive  ports. 

NT  /SYSTRN/  1*2  TROCOM.INC 

Nuaber  of  transait  ports. 

THER  /PATMGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  receive  site  in 
radians. 

THET  /PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  transait  site  in 
radians. 

Global  variables  output  to  coaaonl 

ALFAO  /PATHGE/  R*4  TROCOM.INC 

Miniaua  transait  antenna  elevation  angle  aeasured  fron 
transaitter-to-recei ver  line  to  transait  horizon  line 
in  radians. 

BETAO  /PATHGE/  R*4  TROCOM.INC 

Miniaua  receive  antenna  elevation  angle  aeasured  froa 
receiver-to-transaitter  line  to  receiver  horizon  line 
in  radians. 

DR  /PATHGE/  R*4  TROCOM.INC 

Receiver  distance  to  ainiaua  scattering  point  in 
aeters. 

DT  /PATHGE/  R*4  TROCOM.INC 

Transait  antenna  distance  to  ainiaua  scattering  point 
in  aeters. 

HCOM  /PATHGE/  R*4  TROCOM.INC 

Effective  height  of  the  bottoa  of  the  coanon  voluae  in 
aeters. 

HLR  /PATHGE/  R*4  TROCOM.INC 

Receiver  radio  horizon  elevation  above  sea  level  in 
aeters. 

HLT  /PATHGE/  R*4  TROCOM.INC 

Transait  radio  horizon  elevation  above  sea  level  in 
aeters. 

HRN  /PATHGE/  R*4  TROCOM.INC 

Receive  antenna  height  above  sea  level  in  aeters. 

HTN  /PATHGE/  R*4  TROCOM.INC 

Transait  antenna  height  above  sea  level  in  aeters. 

IRF  /PATHGE/  1*2  TROCOM.INC 

Paraaeter  which  indicates  whether  reference  horizon 
elevation  angles  have  been  calculated  (IRF  *  1)  in 
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PHI 

PHIR 

PHIT 

PSIREO(NRHX) 

PSITEO(NTMX) 


S 

SI 

THERRF 

THETAO 

THETRF 


previous  run.  It  has  neaning  only  when  ITOFF  =  3. 
/PATHGE/  R*4  TROCOH.INC 

Diffraction  angle  in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Receive  angular  distance  to  nininun  scattering  point 

in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Transmit  angular  distance  to  ainieue  scattering  point 
in  radians. 

/ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beae  boresight  elevations  above 
radio  horizon  in  radians*  ie»  angle  at  which  each 
antenna  is  aieed  relative  to  the  horizon.  PSlREO(l) 
is  the  eain  receive  antenna. 

/ANTENN/  R*4  TROCOH.INC 

Array  of  transeitter  bean  boresight  elevations  above 
radio  horizon  in  radians*  ie»  angle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSITEO(l) 
is  the  nain  transnit  antenna. 

/PATHGE/  R*4  TROCOH.INC 

Troposcatter  path  asynnetrw  paraneter. 

/PATHGE/  R*4  TROCOH.INC 

Troposcatter  path  asynnetry  paraneter. 

/PATHGE/  R*4  TROCOH.INC 

Receive  reference  horizon  in  radians. 

/PATHGE/  R*4  TROCOH.INC 

Scattering  angle  at  botton  of  connon  volune  in 

radians. 

/PATHGE/  RM  TROCOH.INC 

Transait  reference  horizon  elevation  in  radians. 
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5.22  TRLOSS 

Subprosraa  naae.  Subroutine  TRL0S3 

Purpose*  Calculates  theoretical  pathloss  using  foraulas  developed  by 
S.  Pari* 

Reference*  S.  Parl»  'New  formulas  for  tropospheric  scatter  loss,;1979; 
Radio  Science;  Vol.  14;  No.  1;  pp.  42-57* 

Calling  sequence! 

CALL  TRLOSS  <11;  X) 

Contained  in  Module*  TRLOSS 

Called  by!  LOOPS 

Calls:  ERROR 

Input  arguments: 

II  1*2  Receiver  beat  number . 

Output  arguaents. 

X  R*4  Theoretical  pathloss. 

Global  variables  input  fro*  coaaon* 

ALFAO 

BET  AO 

D 

DELTAR(NRHX) 

DELrAT(NTMX) 

ICPL 

PSIRAO(NRHX) 

PSIREO(NRMX) 


/PATHGE/  R*4  TROCOM.INC 

Miniaua  transmit  antenna  elevation  ansle  Measured  from 
transaitter-to-recei ver  line  to  transiiiit  horizon  line 
in  radians. 

/PATHGE/  R*4  TROCOM.INC 

NinlMUM  receive  antenna  elevation  angle  Measured  froa 
receiver-to-tr ansaitter  line  to  receiver  horizon  line 
in  radians. 

/PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transaitter  and  receiver 
Measured  at  sea  level  in  Meters. 

/ANTENN/  R*4  TROCOM.INC 

3dB  half-beaawidth  of  each  receive  antenna  in  radians. 
/ANTENN/  R*4  TROCOM.INC 

3dB  half-beaawidth  of  each  transait  antenna  in 
radians . 

/CPLOSS/  1*2  CPL.INC 

Coupling  loss  count. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  receiver  beaa  aziauths  in  radians. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  receiver  beaa  boresisht  elevations  above 
radio  horizon  in  radians;  iet  ansle  at  which  each 
antenna  is  aiaed  relative  to  the  horizon.  PSIREO(l) 


TROPOSCATTER  CALCULATIONS 
Subroutine  TRLOSS 


Pase  5- 


is  the  main  receive  antenna* 

PSITEO(NTHX)  /ANTENN/  R*4  TROCON.INC 

Arras  of  transmitter  beam  boresiaht  elevations  above 
radio  horizon  in  radians*  ie*  ansle  at  which  each 
antenna  is  aimed  relative  to  the  horizon*  PSITEO(l) 
is  the  main  transmit  antenna* 

SCPARH  /PROPAR/  R*4  TROCOH.INC 

Wavenumber  spectrum  slope  parameter  N.  Default  is 
3,66. 

Global  variables  output  to  common* 

CPL<6)  /CPLOSS/  R*4  CPL.INC 

Aperture-to-medium  coupling  loss  arras  in  dB. 


CHAPTER  A 


DIFFRACTION  CALCULATIONS 


This  section  describes  the  diffraction  calculation  routines! 

User's  Manual 


Name 

Description 

section 

AVAIL 

Pathloss  variability  .  . 

»  t  1 

2.6.1 

CONVOL 

Cumulative  distribution  . 

»  »  » 

2.6.1 

DIF1 

Knife-edge  diffraction  loss  .  . 

2.6.2 

DIFSNR 

Diffraction  RSL  and  SNR 
distribution  ...... 

♦  ♦  ♦ 

2.6.1 

INTERP 

Lagrangian  interpolation 

t  *  * 

NA 

MDIF 

Multiple  edge  diffraction 

loss 

calculations  . 

*  ♦  ♦ 

2*6*  2*6* 2“ 

TANGL 

Radio  horizon  (take-off) 
angles  . 

»  ♦  ♦ 

2.6.2*  2.6. 

The  eain  routines  for  this  section  are  DIFSNR  and  MDIF.  Diffraction 
calculations  are  described  in  section  2.6  of  the  User's  Manual. 

Figure  2-3  is  a  toe  level  flowchart  for  diffraction  propagation  parameter 
calculations  at  a  functional  level.  In  most  cases  the  blocks  correspond  to  one 
or  eore  subprograms.  The  test  blocks  (diamonds)  correspond  to  losical  branches 
which  are  decided  by  the  user's  choices  of  input  data. 


NOTE 

In  most  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eauations  as  well  as  the  theory  behind  them.  NA  denotes  routines  that 
are  programming  utilities  such  as  finding  indices*  setting  pointers* 


COMPUTE  DIFFRACTION  ANGLE 
AND  RADIUS  OF  CURVATURE 
FOR  EACH  OBSTACLE 


COMPUTE  DIFFRACTION 
LOSS  DUE  TO  Kth 
OBSTACLE 


Figure  2-3  Flow  Chart  for  Diffraction  Propagation  Parameter  Calculations 
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6.1  AVAIL 

Subprogram  name*.  Subroutine  AVAIL 

Purpose*.  Routine  to  calculate  the  distribution  of  the  pathloss 

variability  for  oultiple  edge  diffraction  paths  by  convolution  of  the 
pathloss  variability  for  each  section  of  the  path*  for  a  specified 
dilate  (KLIHAT). 


Calling  seouencel 

CALL  AVAIL  ( FNHZ *  ND  >  HTE  > HRE *  DN  *  LCR  * VDE *  Y  *  QT ) 
Contained  in  aodule:  AVAIL 
Called  byt  DIFSNR 

Calls?  CLINE*  CLIHIL*  CLIHIX.  CONVOL*  INTERP 


Input  arguients*. 

FNHZ 

R*4 

Freouency  in  NH2. 

ND 

1*2 

Nuiber  of  sections  in  diffraction  path  1<ND<6.  Foual 
to  nuiber  of  edges  plus  one.  No  liiit  set. 

HTE(ND) 

R*4 

Array  containing  transiitter  (horizon)  hpishts  in 
■eters  above  average  terrain  height  for  each  of  the 

ND  sections  in  the  diffraction  path. 

HRE ( ND) 

R*4 

Array  containing  receiver  (horizon)  heights  in  leters 
above  average  terrain  height  for  each  of  the  Nfl 
sections  in  the  diffraction  path. 

DN(ND) 

R*4 

Array  containing  great  circle  path  length  in  leters  of 
each  section  of  path. 

LCR 

R*4 

Long  ten  pathloss  reference  value  in  dB 

Output  arguments* 

VDE 

R*4 

Median  correction  factor  for  specified  dilate  in  dB. 
Set  to  zero  when  the  user  specifies  yearly  median  of 
effective  earth  radius  factor  (SEAN  =  0). 

Y(  11 ) 

R*4 

Array  containing  pathloss  variability  distribution 
about  the  ledian  in  dB. 

QT(ll) 

R*4 

Array  containing  percent  of  time  pathloss  is  not 

exceeded*  i.e.  tiie  availability 

Global  variables  input  from  cooion* 

KLIHAT  /PROPAR/  1*2  TROCOH.INC 

dilate  zone  indicator.  Default  is  0. 

0  =  User  supplied  cliiate 
NFS  TN101  dilates 

1  =  Continental  teiperate  (CT) 

2  =  Naritiie  teiperate  overland  (NTL) 

3  =  Naritiie  teiperate  oversea  (NTS) 

4  =  Naritiie  subtropical  overland  (NSL) 
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LOUT 

SEAN 


5  =  Continental  teaperate  tiae  block  2  (CT2) 

(winter  afternoon  hours)  -  foraerly 
Maritiae  subtropical  oversea  (HSS) 

6  =  Desert*  Sahara  <DS) 

7  =  Eaustorial  (EQU) 

8  =  Continental  subtropical  (CS) 

MIL-HDBK-417  cliaates 

9  =  Continental  teaperate  (CT) 

10  =  Maritiae  teaperate  overland  (MTL) 

11  =  Maritiae  teaperate  oversea  (MTS) 

12  *  Maritiae  subtropical  (MS) 

13  =  Desert*  Sahara  (DS) 

14  *  Eauatorial  (EQU) 

15  =  Continental  subtropical  (CS) 

16  =  Mediterranean  (MFD) 

17  =  Polar  (POL) 

/LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  nuaber. 

/PROPAR/  R*4  TROCUM. INC 

Miniaua  aonthly  aedian  of  refractivity  at  sea  level. 
Used  to  calculate  ERFAC  if  non-zero. 
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6.2  CON VOL 

Subprogram  name!  Subroutine  CONVOL 

Purpose*  Routine  to  find  the  cumulative  distribution  function  of 

the  sum  of  two  independent  random  variables  given  the  complementary 
cumulative  distribution  function  of  each  of  the  random  variables. 

Calling  seouence! 

CALL  CONVOL  (FA»A»IA»FBfB*IB»FC«C»IC> 

Contained  in  module!  AVAIL 
Called  b»!  AVAIL 
Calls!  1NTERP 


Input  arguments! 


FA(IA) 

R*4 

A<  I A) 

R*4 

IA 

1*2 

FB(IB) 

R*4 

BUB) 

R*4 

IB 

1*2 

Output  arguments 

FCI50) 

R*4 

C(50) 

R*4 

IC 

1*2 

Global  variables 
LERR 

Array  containing  IA  values  of  complementary 
cumulative  distribution  of  A.  Dimensioned  to  50, 

Array  containing  range  of  values  of  random 
variable  A.  Dimensioned  to  50. 

Number  of  points  in  distribution  A.  Maximum  is  50. 
Array  containing  IB  values  of  complementary 
cumulative  distribution  of  B.  Dimensioned  to  50, 

Array  containing  range  of  values  of  random 
variable  B.  Dimensioned  to  50, 

Number  of  points  in  distribution  of  fi.  Maximum  is  50. 


Array  containing  50  values  of  cumulative  distribution 
of  the  sum  A  +  B. 

Array  containing  range  of  values  of  the  sum  A  +  B. 
Number  of  elements  in  cumulative  distribution  of  A+B. 

input  from  common! 

/LUNS/  1*2  LUNS.INC 

Error  output  unit. 
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6.3  DIF 1 

Subprogram  name!  Subroutine  D1F1 

Purpose*  Computes  the  diffraction  loss  due  to  a  single  isolated  and 
rounded  obstacle. 


Calling  seouence! 

CALL  DIF1  <R>  D1 t  D2»  PHIt  F»  ATT) 


Contained  in  module!  MDIF 


Called  by. 

MDIF 

Calls! 

NONE 

Input  arguments! 

R 

R*4 

D1 

R*4 

D2 

R*4 

PHI 

R*4 

F 

R*4 

Radius  of  curvature  of  diffracting  edge  in  meters. 
Distance  from  source  (transmitter)  to  edge  in  meters. 
Distance  from  observation  point  (receiver)  to  edge 
in  meters. 

Diffraction  angle  in  radians. 

Freouency  in  MHz. 


Output  arguments. 

ATT  R*4  Diffraction  loss  in  dF. 

Global  variables  input  from  common! 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 
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6.4  DIFSNR 

Subprogram  name!  Subroutine  DIFSNR 

Purpose!  Routine  to  calculate  the  diffraction  path  loss*  RSL  and  SNR 

distributions  for  a  given  service  probability  (SP). 

Calling  seauencei 

CALI  DIFSNR  (LCR»  OFT*  OER.  BWR*  ASNR.  DUPOW) 

Contained  in  nodule!  DIFSNR 

Called  by!  TROPO 

Calls!  AVAIL*  AVTER*  ERFC*  RGAIN*  TGAIN 

Input  arguments! 

LCR  R*4  Reference  value  of  diffraction  path  loss  in  dB» 

OET  R*4  Horizon  elevation  angle  at  transmit  site  in  radians. 

OER  R*4  Hor  izon  elevation  angle  at  receive  site  in  radians, 

BWR  R*4  Receive  antenna  beamwidth  in  degrees. 

Output  arguments! 

ASNR  R*4  Median  and/or  yearly  average  value  of  diffraction 

path  SNR  in  dB. 

BUPOU  R*4  Ratio  of  diffraction  signal  on  upper  beam  to  that 

on  lower  beam. 

Global  variables  input  from  common! 

CDEGR  /CONSTA/  R*4  CONSTANTS. INC 

Radians  per  degree  =  0.017453293. 

D  /PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  meters, 

DL  <  3)  /MC0H4/  R*4  HCOM.INC 

Array  containing  distance  from  each  obstacle  to 
transmitter  in  meters. 

DRATE  /MC0M4/  R*4  HCOM.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

F  /SYSTRN/  R*4  TR0C0M.INC 

Operating  freouency  in  Hz.  Model  is  accurate  between 
100MHz  and  10GHz . 

GRDB<  NRMX )  /ANTENN/  R*4  TROCOM.INC 

Gain  of  each  receive  antenna  in  dBi, 

GTDB(NTMX)  /ANTENN/  R*4  TROCOM.INC 

Gain  of  each  transmit  antenna  in  dBi. 

HI ( 155)  /MC0M4/  R*4  HCOM.INC 

Array  containing  NPM<1)  evenly-spaced  terrain 
elevation  data  (in  meters)  between  transmitter  and 
first  obstacle  followed  by  NPM(2)  evenly-spaced 
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HL(3) 


HLAV( 3) 

HLEF ( 3 ) 

HRE 

HRN 

HTE 

HTN 

LERR 

LOUT 

NFIG 

NOBS 

NPM<5) 

NTERR 


terrain  elevation  data  between  first  and  second 
obstacle!  etc.»  endins  with  NPH(N0BS+1)  evenly-spaced 
terrain  elevation  data  between  last  obstacle  and 
receive  site.  The  data  should  be  selected  such  that*. 

HI(1)  =  Terrain  elevation  above  sea  level  at 
transmit  site  (HTO). 

HKNPM(I))  =  HI'  (NPH(I)tl)  =  Elevation  of  Ith 
obstacle  above  sea  level  <HL(I)). 

HI (NPh<N0BS+l ) )  =  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  HNTS»  HI  is  used  as  work  space.  It  is  eouivaleneed 
to  local  arrays. 

/HC0H4/  R*4  HCOH.INC 

Array  containing  elevation  of  each  obstacle  above  sea 
level  in  meters.  HL<1)  is  elevation  of  transmitter 
radio  horizon  HIT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  HLR. 

/MC0H4/  R*4  HCOH.INC 

Array  containing  averase  terrain  elevation  at  each 
diffraction  point  in  meters. 

/HC0H4/  R*4  HCOH.INC 

Array  containing  effective  heisht  of  obstacles  above 
average  terrain  elevation  in  meters. 

/HC0H4/  R*4  HCOH.INC 

Effective  receiver  antenna  heisht  above  averase 

terrain  elevation  in  meters. 

/PATHGE/  R*4  TROCOH.INC 

Receive  antenna  heisht  above  sea  level  in  meters. 

/HC0H4/  R*4  HCOH.INC 

Effective  transmitter  antenna  heisht  above  a, erase 
terrain  elevation  in  meters. 

/PATHGE/  R*4  TROCOH.INC 

Transmit  antenna  heisht  above  sea  level  in  meters. 
/LUNS/  1*2  LUNS. INC 

Error  output  unit. 

/LUNS/  1*2  LUNS. INC 

F0R002.DAT  output  unit  number. 

/HC0H4/  R*4  HCOH.INC 

Receiver  noise  fisure  in  dB.  Default  is  4dB. 

/HC0H2/  1*2  HCOH.INC 

Number  of  diffraction  obstacles.  Haximum  is  3> 

default  is  1. 

/HC0H2/  1*2  HCOH.INC 

Array  containins  number  of  terrain  elevation  date 
points  for  calculation  of  effective  antenna  heishts 
for  each  section  of  the  diffraction  path. 

/HC0H2/  1*2  HCOH.INC 

Control  parameter  for  entry  or  calculation  of 
effective  antenna  heishts  (HTE»  HKE)  and  effective 
obstacle  heishts  above  averase  terrain  elevation 
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7.8  YINT 


Subprogram  name!  Subroutine  YINT 

Purpose!  Linear  interpolation  routine  to  find  Y  =  A  *  BE  +  B. 
Where*.  A  =  (Y2  -  Yl)  /  <X2  -  XI)  and 
B  =  Yl  -  A  *  XI 
For  XI  <  DE  <  X2 


Calling  seouence*. 

CALL  YINT  (DE»X1»X2»Y1*Y2»Y) 

Contained  in  module!  CLIME 


Called  by;  CLINE 
Calls.*  NONE 


Input  arguments! 

HE 

R*4 

Effective  distance  in  ki  1 ompters . 

XI 

R*4 

Lower  limit  for  distance  interpolation 

in 

kilometers. 

X2 

R*4 

Upper  limit  for  distance  interpolation 

in 

kilometers* 

Yl 

R*4 

Path  loss  variability  corresponding  to 

XI 

in  dB. 

Y2 

R*4 

Path  loss  variability  corresponding  to 

X2 

in  dB. 

Output 

arguments! 

Y 

R*4 

Path  loss  variability  in  dB. 
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7.7  VDECAL 

Subprogram  name?  Subroutine  VDECAL 

Purpose!  Computes  the  median  correction  factor,  VDE,  for  the  • 

HIL-HDBK-417  climates  given  the  Cl*  C2,  C3*  Nl,  N2*  N3,  FM*  F8 
constants  in  V(I)  and  the  effective  distance  DE. 

Calling  seouence! 

CALL  VDECAL  (V*  DE,  VDE ) 

Contained  in  module*.  CLIHIL 

Called  by?  CLIHIL 

Calls'.  NONE 

Input  arguments! 

V ( 8 )  R<4 

DE  Rt4 

Output  arguments? 

VDE  R*4 


Array  containing  the  constants  used  in  calculating 
VDE. 

Effective  distance  in  kilometers, 

Nedian  correction  factor  V(.5»DE>  in  dR  according 
to  KLIMAT. 


Aimuim’i  mm.  V.i.A  V  V  V  ^..V.  -I  ■*..  A 
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7.  A  VARPOL 

Subprogram  naae?  Function  VARPOL 


Purpose?  Coaputes  the  value  X(F)»  X2  <  X  <  XI  where?  F(X)  is  a  nomal 
distribution  function  with  F < X 1 )  =  FI  and  F(X2)  *  F2.  The  function 
reauires  that  F2  <  FI. 


Call ind  seouence? 

VARPOL  (F *F1 »F2» XI »X2» SIGMA) 


Contained  in  Module?  CLINIX 


Called  by?  CLINIX 
Calls?  NONE 


Input  arSuaents? 


F 

R*4 

FI 

R*4 

F2 

R*4 

XI 

R*4 

X2 

R*4 

SIGNA 

R*4 

Function. 

Value  of  function  F  at  XI. 

Value  of  function  F  at  X2. 
Variability  about  aedian  in  dB. 
Variability  about  median  in  dB. 


Output  arauaents? 
VARPOL  R*4 


Result  of  interpolation  between  X2  and  XI, 


Global  variables  input  from  coamon! 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  1.141592654. 
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7.5  DEIND 

Subprogram  name!  Subroutine  DEIND 

Purpose!  Find  OF  indices  for  interpolation  of  climate  variability  data 
in  look  up  tables. 


Calling  seouence! 

CALL  DEIND  (DE. II » I2.L IH.X1 . X2.DFINC) 
Contained  in  module!  CLIME 


Called  by! 

CLIME 

Calls! 

NONE 

Input  arguments! 

DE  R*4 

Effective  distance  in  kilometers. 

LIM 

1*2 

DE 

maximum  increment. 

DEINC 

R*4 

DE 

range  increment. 

Output  arguments! 

11  1*2  Output  index  for  XI  <  DF  <  X2. 

12  1*2  Output  index  for  XI  <  DF  <  X2  (for  DE  =  XI .  12  =  0). 

XI  R*4  Output  DF  range »  XI  <  DF.  <  X2.  where  XI  takes  the 

values  0,  DEINC,  2*DEINC.  ....  (UH-)  *  DEINC. 

X2  R*4  Output  PF  range.  XI  <  DF  <  X2. 

Global  variables  input  from  common! 

LERR  /LUNS/  1*2  l.UNS.  INC 

Error  output  unit. 


CLIMATE  VARIABILITY  CALCULATIONS 
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Pase  7-5 


7.4  CLIMIX 

Subprogram  name*  Subroutine  CLIMIX 

Purpose*  Mixed  climate  variability  distribution  and  VUE  computation. 
Calling  seouence! 

CALL  CLIMIX  (BE.  YO.  KLIM1.  KLIM?.  FH.  VUE ) 


Contained  in  module*  CLIMIX 
Called  by*.  POWER 


Calls!  CLIME.  ERFC.  VARPOL 


Input  arguments! 
DE  R*4 

KLIM1  1*2 
KLIM2  112 
FM  R*4 


Effective  distance  in  Kilometers. 
First  KLTMAT  code  to  be  mixed. 
Second  KLIMAT  code  to  be  mixed. 
Freouency  in  MHz. 


Output  arguments! 

Y0( 8)  R*4  Variability  distribution  function  YO(G). 

VDE  R*4  Time  variability  of  basic  transmission  loss  in  dB. 


Global  variables  input  from  common! 

LERR  /LUNS/  1*2  LUHS.INC 

Error  output  unit. 

LOUT  /LUNS/  1*2  LUNS. INC 

FOR002.DAT  output  unit  number. 
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7.3  CL.IHIL 

Subprograa  naae*.  Subroutine  CLIMIL 


Purpose!  Set  the  variability  about  the  aedian#  YO  array#  and  the  aedian 
correction  factor#  VDE#  for  MIL-HDBK-417  cliaater.  according  to  Kl.IMAT. 

Calling  seouence! 

CALL  CLIMIL  <DE.  Y0»  KLIMAT#  F .  VDE ) 

Contained  in  aodule!  CLIMIL 
Called  by!  POUER#  AVAIL 
Calls*.  CLIFIT#  VDECAL 


Input  arguaents: 
DE  R*4 

KLIMAT  1*2 
F  R*4 


Effective  distance  in  kiloaeters. 
Cliaate  designation. 

Freouency  in  MHz. 


Output  arguaents* 

YO< 8)  R*4  Variability  about  aedian  in  dfe. 

VDE  R*4  Median  correction  factor  V(.5#DE)  in  dB  according 

to  KLIMAT. 


Global  variables  input  froa  coaaon* 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

Global  variables  output  to  coaaon. 

DEMIN  /CURVE/  R*4  CURVE. INC 

User  supplied  ainiaa  of  the  90th  percentile 
variability  curve#  Y0<90). 

Y900  /CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  greater  than  or  eeual  900  ka. 
Used  only  when  ICLIME  is  2.  Used  to  coapute  the 
eouation  for  the  Y0(90)  curve  fit. 

YMIN  /CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  eaual  to  DEMIN.  Used  only  when 
ICLIME  is  2.  Used  to  coapute  the  eouation  for  the 
Y0(90)  curve  fit. 
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7*2  CLIME 

Subprogram  name!  Subroutine  CLIHE 

Purpose?  Calculate  median  correction  factor  VDE  and  path  loss 

variability  about  Median  YO*  given  the  effective  path  distance  DF* 
NBS  climate  designator  KLIHAT  and  freauency  F.  Set  YO  array  and  VDE 
according  to  climate  code  KLIHAT. 

Reference:  Cl*  C2*  C3*  Nt»  N2*  N'Jt  FN*  F8  constant  data  for  the  NBS 

climates  is  from  Volume  II  of  National  Bureau  of  Standards  technical 
note  101 :  'Transmission  Loss  Predictions  for  Tropospheric 
Communication  Circuits'*  revised  1-01-67. 

Calling  seouence. 

CALL  CLIME  <DE.  YO*  KLIHAT.  ft  VDE) 

Contained  in  module*  CLIHE 
Called  by*.  AVAIL*  CLIM1X*  POWER 

Calls*.  CLIFIT,  DINT.  YINT 

Input  arguments* 

DE  R*4  Effective  distance  in  kilometers. 

KLIHAT  1*2  Climate  designation. 

F  R*4  Freauency  in  HHz. 

Output  arguments. 

Y0(8)  R*4  Variability  about  median  in  dB. 

VDE  R*4  Median  correction  factor  V(>5*  DE)  in  dB  according 
to  climate. 

Global  variables  input  from  common! 

DEMIN  /CURVE/  R*4  CURVE. INC 

User  supplied  minima  of  the  90th  percentile 
variability  curve*  Y0<90). 

GPF  /CURVE/  R*4  CURVE. INC 

Freauency  correction  factor  for  user  supplied  90th 
percentile  variability  curve.  Default  is  1. 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 
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7.1  CLIFIT 

Suberodraa  name!  Subroutine  CLIFIT 

Purpose}  Routine  to  fit  Y0(90)  curve  given  the  value  for  Y0<90>  for 
effective  distance  DE  *  0  (Y7FR()>»  the  values  Y0<90)  and  DU  for  the 
minima  of  the  curve  (YHIN*  BENIN)  and  the  value  of  Y0<90)  for 
DE  .GE.  900  km  (Y900)>  NoteS  DEMIN  and  DE  are  in  kilometers. 


Calling  seouenceS 

CALL  CLIFIT  <DE*Y» DC* IFLAG) 


Contained  in  module*  CLIME 


Called  but  CLIME,  CLIMIL 


Calls*  NONE 


Input  argumentsS 
DE  R*4 

DC  R*4 

IFLAG  1*2 


Effective  distance  in  kilometers. 

Cut-off  distance  in  kilometers. 

Flag  to  indicate  whether  variability  curve 
coefficients  are  to  be  printed  (IFLAG  =  1)  or  not. 


Output  arguments: 
Y  R*4 


Magnitude  of  variability  YO(90*BE). 


Global  variables  input  from  common*. 

DEMIN  /CURVE/  R*4  CURVE. INC 

User  supplied  minima  of  the  90th  percentile 
variability  curve*  Y0(90>. 

LOUT  /LUNS/  1*2  LIJNS.INC 

F0R002.DAT  output  unit  number. 

Y900  /CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  greater  than  or  eoual  900  km. 
Used  only  when  ICLIMF  is  2.  Used  to  compute  the 
eouation  for  the  Y0(90)  curve  fit. 

YMIN  /CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0<90)  for  DE  eoual  to  DEMIN.  Used  only  when 
ICIIHE  is  2.  Used  to  compute  the  eouation  for  the 
Y0(90>  curve  fit. 


CHAPTER  7 


CLIMATE  VARIABILITY  CALCULATIONS 


This  section  describes  the  cliaate  variability  calculation  routines! 


Naae  Description 


User's  Manual 
section 


CLIFIT  Cliaate  curve  fit  .......  2. 5. 4. 5 

CLIME  Cliaate  aain  routine . 2. 5. 3.1 

CLIMIL  NIL-HDFK-417  cliaates  .  2. 5. 3. 2*  2. 5. 4.1* 

2. 5. 4. 2 

CLIMIX  Mixed  cliaates  .  .  .  .  2.5.3. 1 

DEIND  DE  indices . HA 

VARPOL  Interpolation  .  NA 

VDECAL  VDE  calculations  .  2. 5. 3.1 

YINT  Y  interpolation . NA 


Cliaate  calculations  are  described  in  sections  2.5.3  and  2.5.4  of  the  User's 
Manual • 


In  aost  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eauations  as  well  as  the  theory  behind  thea.  NA  denotes  routines  that 
are  proslraaaind  utilities  such  as  finding  indices*  setting  pointers* 
etc. 


DIFFRACTION  CALCULATIONS 
Subroutine  TAN6L 
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£.7  TANGL 

Subprogram  name*  Subroutine  TANGL 


Purpose!  Calculates  radio  horizon  elevation  angles  and  diffraction 
angle  for  a  single  diffraction  path  geometry. 

Calling  seouence! 

CALL  TANGL  ( B » HTS » HRS » DLT  *  DLR » HL » A i OET  >  OER » AHO > BHO >  THETA » DO  f  X1»X2) 


Contained  in  module!  MDIF 


Called  by! 

HDIF 

Calls! 

HORANG 

Input  arguments! 

D 

R*4 

Great  circle  distance  in  meters. 

HTS 

R*4 

Transmit  terminal  elevation  above  sea  level  in  meters 

HRS 

R*4 

Receive  terminal  elevation  above  sea  level  in  meters. 

DLT 

R*4 

Great  circle  distance  from  radio  horizon  to 
transmitter  (source)  in  meters. 

DLR 

R*4 

Great  circle  distance  from  radio  horizon  to  receiver 
(observation  point)  in  meters. 

HL 

R*4 

Radio  horizon  elevation  above  sea  level  in  meters. 

A 

R*4 

Effective  earth  radius  in  meters. 

Output  arguments! 

OET 

R*4 

Radio  horizon  elevation  angle  of  transmit  terminal 
above  tangent  to  terminal  site  in  radians. 

OER 

R*4 

Radio  horizon  elevation  angle  of  receive  terminal 
above  tangent  to  terminal  site  in  radians. 

AHO 

R*4 

Terminal  radio  horizon  angle  above  straight  line 
intersecting  both  terminals  in  radians. 

BHO 

R*4 

Terminal  radio  horizon  angle  above  straight  line 
intersecting  both  terminals  in  radians. 

THETA 

R*4 

Diffraction  angle  in  radians. 

DO 

R*4 

Slant  path  range  in  meters. 

XI 

R*4 

Distance  from  source  (transmitter)  to  diffracting 
edge  in  meters. 

X2 

R*4 

Distance  from  observation  point  (receiver)  to 
diffracting  edge  in  meters. 

Global  variables  input  from  common! 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 
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Free  space  velocity  of  radio  waves  =  2.998E8  e/sec. 

DELPB  /PDATA/  R*4  PDATA.INC 

Resolution  of  a  delay  cell  in  seconds* 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  nunber. 

NDELHX  Paraneter  1*2  TROPAR.INC 

Haxieun  nunber  of  delay  bins  in  troposcatter  power  per 
unit  delay  profiles. 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  *  3.141592654. 

Global  variables  output  to  connon! 

DELREF  /PDATA/  R*4  PDATA.INC 

Hininun  delay  through  the  lowest  scattering  point 
(relative  to  straight  line  delay)  in  seconds. 

Q ( NDELHX » NCORHX )  /PDATA/  R*4  PDATA.INC 

Matrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  Profiles. 

For  DIVTYP  =  OJ 

Q(.fl)  Power  on  lower  bean  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  bean  vs.  delay. 

Q(.»3)  Correlation  between  lower  beans 
in  antennas  18  2  vs.  delay. 

Q(»f4)  Power  on  upper  bean  vs.  delay. 

Q(.»7)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  *  1J 

Q(.il)  Power  on  lower  bean  vs.  delay. 

Q(.i2)  Correlation  between  lower  and 
upper  bean  vs.  delay. 

Q(.»3)  Power  on  upper  bean  vs.  delay 

Q(.»7)  Power  on  diffraction  path  vs.  delay. 

For  DIVTYP  =  2! 

Q(.'l)  Power  on  path  1  (lower  bean)  vs.  delay. 

0(.r2)  Correlation  between  convergent  paths 
(lower  bean)  vs.  delay. 

Q(.*3)  Correlation  between  divergent  paths 
(lower  bean)  vs.  delay. 

Q(.>4)  Correlation  between  parallel  paths 
(lower  bean)  vs.  delay. 

Q(.>5)  Correlation  between  crossing  paths 
(lower  bean)  vs.  delay. 

Q(.»6)  Power  on  path  of  upper  bean  vs.  delay. 

Q(.»7)  Power  on  diffraction  path  vs.  delay. 
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Subroutine  NDIF 

6.6  HDIF 

Subprogram  name!  Subroutine  HDIF 

Purpose*  Routine  to  calculate  the  diffraction  angles*  relative  delay* 
and  basic  path  loss  of  a  diffraction  path  with  multiple  diffraction 
points. 


Calling  seouence! 

CALL  HDIF  <KD*HL*HTN*  HRN*Dl.  *D*DS*F>  A*LB*DEL*THET *THFR*  HODPAT* JQDH) 


Contained  in 

module 

:  HDIF 

Called  by? 

TROPO 

Calls: 

DIF1  * 

ERROR*  TANGL 

Input  arguments* 

KD 

1*2 

Number  of  diffracting  edges.  No  maximum  set. 

HL(KD) 

R*4 

Array  containing  heights  above  sea  level  of  the  k 
diffraction  points  in  meters. 

NTN 

R*4 

Transmit  antenna  height  above  sea  level  in  meters. 

HRN 

R*4 

Receive  antenna  hpisht  above  sea  level  in  meters. 

DL(KD) 

R*4 

Array  containing  great  circle  distance  from  the 
transmitter  to  midpoint  of  each  obstacle  in  meters. 

D 

R*4 

Great  circle  distance  between  transmitter  and  receive 
in  meters. 

DS(KD) 

R*4 

Array  containing  effective  horizontal  extent  of  each 
obstacle  along  great  circle  path  in  meters. 

F 

R*4 

Carrier  freouency  in  HHz. 

A 

R*  4 

Effective  earth  radius  in  meters. 

HODPAT 

1*2 

Indicates  whether  or  not  to  calculate  modem 
performance . 

0  *  Propagation  only 

1  =  Propagation  +  HD-918  modem 

2  =  Propagation  +  TRC  modem 

JQDH 

1*2 

Index  in  the  multipath  profile  corresponding  to 
the  delay  of  the  specular  component. 

Output  arguments: 

LD 

R*4 

Long  term  reference  basic  path  loss  in  dB. 

DEL 

R*4 

Diffraction  path  delay  relative  to  slant  range  delay 
in  seconds. 

THET 

R*4 

Horizon  elevation  angle  at  transmit  site  in  radians. 

THER 

R»4 

Horizon  elevation  angle  at  receive  site  in  radians. 

Global  variables  input  from  common. 


AO 

/CONSTA/ 

R*4 

CONSTANTS. INC 

Radius  of 

the  earth 

in  meters  =  63676b0 

CO 

/CONSTA/ 

R*4 

CONSTANTS. INC 
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6.5  INTERP 

Subprogram  name*  Subroutine  INTERP 


Purpose*  Routine  to  interpolate  using  nth  order  Lasrangian 

approximation. 

Calling  seauence: 

CALL  INTERP  ( IORD, IDIMX, IDIMA»FX»X» F A, A > 

Contained  in  module:  AVAIL 
Called  by*.  AVAIL,  C0NV0L 
Calls!  NONE 


Input  arguments: 


IORD 

1*2 

Order  of  interpolation. 

I0IHX 

1*2 

Dimension  of  input  arrays.  Maximum  is  101. 

IDIMA 

1*2 

Dimension  of  output  arrays.  Maximum  is  50. 

FX(IDIHX) 

R*4 

Array  containing  IDIMX  values  of  dependent 
variable.  Dimensioned  to  101, 

X(IDIMX) 

R*4 

Array  containing  IDIMX  values  of  independent 
variable  in  ascending  order.  Dimensioned  to 
101. 

A(IDIMA) 

R*4 

Array  containing  IDIMA  values  of  independent 
variable  after  interpolation  in  ascending 
order.  Dimensioned  to  50. 

Output  arguments! 

FA(IDINA) 

R*4 

Array  containing  IDIMA  values  of  dependent 

varaiable  after  interpolation.  Dimensioned  to 
50. 
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PHDIV 

PSIREO(NRHX) 

PSITEO(NTHX) 

PXNIT 

RLL 

SP 

THER 

THET 

TLL 

Global  variables 
AVERX 

AVETX 

DIFL0S( 3) 

DIFRSL<  3) 

DSTSNR 


(HLEF). 

0  =  HTE  and  HRE  supplied  directly 

1  =  AVETX  and  AVERX  supplied 

2  =  HI < » )  supplied 

/HC0H4/  RM  MCOH.INC 

Souint  angle  between  upper  and  lower  receiver  beats  in 
radians.  Default  is  beatwidth, 

/ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beat  boresisht  elevations  above 
radio  horizon  in  radians*  ie»  angle  at  which  each 
antenna  is  aited  relative  to  the  horizon.  PSTREO(l) 
is  the  tain  receive  antenna. 

/ANTENN/  Rt4  TROCOH.INC 

Array  of  transtitter  beat  boresight  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aited  relative  to  the  horizon.  PSITEO(l) 
is  the  tain  transtit  antenna. 

/NC0N4/  R*4  HCOH.INC 

Rated  transtission  power  in  dBt.  Default  is  70dB». 

/SYSTRN/  R*4  TROCOH.INC 

Receiver  line  losses  in  dB.  Default  is  0  dB. 

/HC0H4/  Rt4  HCOH.INC 

Service  probability.  Default  is  ,95. 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  ansle  at  receive  site  in 

radians, 

/PATHGE/  R*4  TROCOH.INC 

Radio  horizon  elevation  angle  at  transtit  site  in 

radians. 

/SYSTRN/  R*4  TROCOH.INC 

Transtitter  line  losses  in  dfi.  Default  is  0  dB. 

output  to  cotton, 

/HC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 

receive  site  and  radio  horizon*  in  teters. 

/HC0H4/  R*4  HCOH.INC 

AveraSe  terrain  elevation  above  sea  level  between 

transtit  site  and  radio  horizon,  in  teters. 

/SUHP/  R*4  CURVE. INC 

Hedian  diffraction  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

/SUHP/  R*4  CURVE. INC 

Hedian  diffraction  signal  RSI.  in  dFt  for  each  value  in 
ERFAC  distribution. 

/SUHP/  R*4  CURVE. INC 

Standard  deviation  of  diffracted  signal  long-tera  SNR 
distribution  in  dB, 
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BUTTERUORTH  FILTER  CALCULATIONS 


Fidure  2-4  is  a  top  level  flowchart  for  filter  and  interference  effects 
calculations  at  a  functional  level.  In  aost  casps  the  blocks  correspond  to  one 
or  aore  subproaraas.  The  test  blocks  (diaaonds)  correspond  to  loaical  branches 
which  are  decided  bv  the  user's  choices  of  input  data. 


BUTTERWORTH  FILTER  CALCULATIONS 


Psse  8 


NOTE 

In  «ost  esses  the  sections  in  the  User's  Hanual  describe  the  coded 
eouations  as  well  as  the  theory  behind  the*.  NA  denotes  routines  that 
are  prosraeains  utilities  such  as  finding  indices*  setting  pointers* 
etc* 


COMPUTE  PEAK -TO-AVE RAGE 
RATIO  OF  TRANSMITTED  WAVEFOI 


COMPUTE  NUMBER  OF  POLES  AND 
3-dB  CUT-OFF  FREQUENCY  OF 
TRANSMIT  AND  RECEIVE  FILTERS 
FOR  SPECIFIED  BANDWIDTH 
CONSTRAINT 


COMPUTE  IMPULSE  RESPONSE  OF 
CASCADE  OF  TRANSMIT  AND 
RECEIVE  FILTERS 


^  IS  \ 
MODPAT.EQ.l 


COMPUTE  CORRELATION  FUNCTION 
OF  CASCADE  OF  INTERFERENCE  AND 
RECEIVER  FILTERS 


^  IS  ^ 
M0DPAT.EQ.2 


COMPUTE  CORRELATION 
FUNCTION  OF  IMPULSE 
RESPONSE  OF  RECEIVER 
FILTER 


ANY  ^ 
INTERFERENCE 


INTERFERENCE 


CALCULATE  SNR  DEGRADATION  DUE 
TO  CO-CHANNEL  OR  ADJACENT 
CHANNEL  INTERFERENCE 


COMPUTE  CORRELATION 
FUNCTION  OF  IMPULSE 
RESPONSE  OF  RCVR 
FILTER 


CALCULATE  CORRELATION  FUNCTION 
OF  CASCADE  OF  TRANSMIT -RCVR 
FILTER  AND  TROPOSCATTER  CHANNEL 
POWER  PER  UNIT  DELAY  PROFILE 


CALCULATE  SNR 
DEGRADATION  DUE 
TO  2nd  FREQUENCY 
FOR  TRC-170  MODEM 


Figure  2-4  Flowchart  for  Filter  and  Interference  Effects  Calculations 
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8*1  ASOFCC 

Subprogram  name!  Function  A50FCC 

Purpose!  Calculates  filter  attenuation  at  normalized  freouency  F 

relative  to  50dB  attenuation. 

Calling  seauence! 

A50FCC  <F) 

Contained  in  module!  BUTFIL 

Called  bu i  FCCMSK >  FUNBW 

Calls!  PSPEC 

Input  arguments! 

F  R*4  Freouency  relative  to  the  center  of  the  band 

normalized  to  the  symbol  rate. 

Output  arguments! 

A50FCC  R*4  Filter  attenuation  at  normalized  freouency  F  relative 
to  50dB  attenuation. 

Global  variables  input  from  common! 

FCTX  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  3d8  cut-off  freauency  of  transmitter 
filter. 

IFILTX  /BUTPAR/  1*2  BUTPAR. INC 

Transmitter  filter  indicator. 

0  =  HD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  symbol  duration. 

1  *  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  symbol  duration. 

2  =  (not  allowed) 

NPOLTX  /BUTPAR/  1*2  BUTPAR. INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 

PENERG  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  energy  of  filter. 

RSDB  /8UTPAR/  R*4  BUTPAR. INC 

10  times  the  base  10  logarithm  of  the  symbol  rate 
minus  60. 
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8.2  BUTFIL 

Subprogram  name:  Subroutine  BUTFIL 

Purpose*  Calculate  filter  related  parameters  for  HD-918  and  TRC-170 
aodeas. 

t 

Calling  seouence* 

CALL  BUTFIL  (DRATE»BM» IBW»  TAPW>  TAU22>  JP0W1 » JBM1 » 

F JSEP  »M0DSI 1  *  HOOPAT » TRCTYP ) 

Contained  in  module:  BUTFIL 

Called  by?  TROPO 

Calls.*  BWJAHf  FUNJAM»  PEAK,  PSPEC1,  PSPEC2»  SAMPLE t  SPEC1,  SPEC2 

Input  arguments: 

DRATE  R*4  Data  rate  in  bits/second. 

BM  R*4  SiSnal  bandwidth  in  Hertz. 

IBM  1*2  RF  bandwidth  filtering  constraint  indicator: 

0  =  no  constraint 

1  =  99 X  bandwidth  constraint 

2  *  FCC  19311  aask 

3  =  user  supplied 

TAPW  R*4  HD-918  AKE  noraalized  tap  spacing. 

TAU22  R*8  RHS  delaw  spread  of  troeoscatter  signal  in  lower  beam 

in  nanoseconds. 

JP0M1  R*8  Interfering  signal  power  density  in  dBa/Hz. 

JBM1  R*8  Interfering  signal  bandwidth  in  Hertz. 

FJSEP  R*4  Freouency  separation  between  desired  signal  and 

interference  signal  in  Hertz. 

H0DSI1  1*2  Interference  modulation  type  indicator: 

0  =  FOM/FH 
1  =  GPSK 

MODPAT  1*2  Indicates  whether  or  not  to  calculate  modem 

performance. 

0  =  Propagation  only 

1  =  Propagation  +  HD-918  mode* 

2  =  Propagation  +  TRC  modem 

3  *  Propagation  +  user  supplied  modem 

TRCTYP  R*4  AN/TRC-170  modem  type  indicator*. 

0=1  freouency  DAR  modem 
1=2  freouency  AN/TRC-170 

Output  arguments! 

BM  R*4  99Z  bandwidth  of  transmit  filter  specified  by  user 

(IBM  =  3)  in  Hertz. 


Global  variables  input  from  common 
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LERR 

LOUT 

NPOLRX 

NPOLTX 

NTR 

PENERG 

PI 

PJ 

RC0R(32) 

Global  variables 
CON JAN 

FCON 

FCRX 

FCTX 

FJSEPN 

ICON 

IFILRX 


IFILTX 


/LUNS/  1*2  LUNS.INC 

Error  output  unit. 

/LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  nuaber. 

/BUTPAR/  R*4  BUTPAR .INC 

Nuaber  of  poles  in  the  receive  Butterworth  filter. 

/BUTPAR/  1*2  BUTPAR. INC 

Nuaber  of  poles  in  the  transmit  Butterworth  filter. 

/RZ4/  1*2  RZ4.INC 

Nuaber  of  saaples  for  calculating  transait-recei ve 
filter  iapulse  response  (TRFILT). 

/BUTPAR/  R*4  BUTPAR. INC 

Noraalized  energy  of  filter. 

/CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 

/JAHPAR/  R*4  JANPAR .INC 

Noraal ization  constant  for  interference  calculations. 
/RZ4/  R*4  RZ4.INC 

Correlation  function  of  the  receive  filter  in  steps 
eoual  to  the  tapwidth  (TAPM)  for  ND-918  aodea.  or 
eoual  to  1/RATE  for  AN/TRC-170  or  DAR  aodea. 

output  to  coaaon! 

/JANPAR/  R*4  JANPAR. INC 

Interference  constant. 

/BUTPAR/  R*4  BUTPAR. INC 

Ratio  of  bandwidth  to  twice  the  syabol  rate. 

/BUTPAR/  R*4  BUTPAR .INC 

Noraalized  3dB  cut-off  freouency  of  receiver  filter. 

/BUTPAR/  R*4  BUTPAR. INC 

Noraalized  3dB  cut-off  freouency  of  transaitter 

filter. 

/JANPAR/  R*4  JANPAR. INC 

Noraalized  freouency  separation  between  the 
interference  signal  and  the  desired  signal. 

/BUTPAR/  1*2  BUTPAR. INC 

1  =  992  bandwidth  constraint 

2  =  FCC-13911  bandwidth  constraint 

/BUTPAR/  1*2  BUTPAR. INC 

Receiver  filter  indicator. 

0  =  ND-918  receiver  filter.  Also  Beans 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  iapulse  response  filter  of 
duration  eoual  to  syabol  duration. 

1  =  (not  allowed) 

2  *  AN/TRC-170  receiver  filter.  Also  Beans 

filter  is  a  Butterworth. 

/BUTPAR/  1*2  BUTPAR. INC 

Transaitter  filter  indicator. 

0  =  ND-918  transaitter  filter.  Also  neans 
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JBU 

JPOW 

HODSG 

N  JR 

PEAKAV 
RJCOR( 129) 

RSBB 

SNRBH 

SNRF2 

SNRJAH 

TRFILT(128) 

XTRO 

XTRINC 


filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  symbol  duration. 

1  *  AN/TRC-170  transmitter  filter#  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  symbol  duration. 

2  =  (not  allowed) 

/JAHPAR/  R*4  JAKPAR. INC 

992  interferer  bandwidth  in  HHz. 

/JAHPAR/  R*4  JAHPAR.  INC 

Interferer  power  density  in  dBm/Hzl  -174  or  less 
denotes  no  interference.  Default  is  -1000  dBm/Hz. 
/JAHPAR/  1*2  JAHPAR. INC 

Interference  signal  modulation  format.  Default  is  1. 

0  =  Analog  FDH  /  FH 
1  =  Digital  QPSK 
/RZ4/  1*2  RZ4.INC 

Number  of  sample  points  for  RJCDR. 

/RZ4/  R*4  RZ4.INC 

Peak-to-averaSe  loss  due  to  RF  filtering  in  dB. 

/RZ4/  R*4  RZ4.INC 

Correlation  function  of  interferer-recei ver  filters  at 
RATE  points  per  symbol  interval. 

/BUTPAR/  R*4  BUTPAR. INC 

10  times  the  base  10  logarithm  of  the  symbol  rate 

minus  60. 

/RZ4/  R*4  RZ4.INC 

Signal  to  noise  ratio  adjustment  for  AN/TRC-170  due  to 
limited  receive  filter  bandwidth. 

/RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  for 

degradation  due  to  interference  from  another 

freouency.  Only  for  2-freouency  AN/TRC-170  modem. 

/RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  of 

AN/TRC-170  for  degradation  due  to  colocated/adjacent 

channel  interference. 

/RZ4/  R*4  RZ4.INC 

Transmit-receive  filter  impulse  response. 

/RZ4/  R*4  RZ4.INC 

Time  origin  for  transmit-receive  filter  impulse 

response  (TRFILT)>  ie»  X  is  TRFILT(XtXTRO) . 

/RZ4/  R*4  RZ4.INC 

Sample  interval  for  calculation  of  transmit-receive 
filter  impulse  response  (TRFILT). 
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8.3  BWJAM 

Subprogram  Dane:  Subroutine  BWJAN 

Purpose!  Specify  power  spectrum  for  interference  and  calculate  transmit 
filter  and  receive  filter  parameters.  Calculate  number  of  poles  and 
3dB  cut-off  freouency  of  transmit  and  receive  filters  for  specified 
bandwidth  constraint. 

Calling  seouence! 

CALL  BWJAN  (NOBPAT  »TRCTYP» FLOWER »FUPPERtNLOWER»NUPPER>  IBW>BW»SRATE ) 
Contained  in  module!  BUTFIL 
Called  by!  BUTFIL 

Calls!  ENRGF »  FUNBWi  FUNJAN*  RTNI t  SEARCH 

Input  arguments! 

NODPAT  1*2  Indicates  whether  or  not  to  calculate  modem 
performance. 

0  =  Propagation  only 

1  =  Propagation  +  HB-918  modem 

2  =  Propagation  +  TRC  modem 

3  =  Propagation  +  user  supplied  modem 
TRCTYP  R*4  AN/TRC-1 70  modem  type  indicator! 

0=1  freouency  BAR  modem 
1=2  freouency  AN/TRC-170 

FLOWER  R*4  Smallest  normalized  cut-off  freouency  of  interest  for 
Butterworth  filter. 

FUPPER  R*4  Largest  normalized  cut-off  freouency  of  interest  for 
Butterworth  filter, 

NLOWER  1*2  Smallest  number  of  poles  of  interest  for  Butterworth 
filter. 

NUPPER  1*2  Largest  number  of  poles  of  interest  for  Butterworth 

filter. 

IBW  1*2  RF  bandwidth  filtering  constraint  indicator! 

0  =  no  constraint 

1  =  99Z  bandwidth  constraint 

2  =  FCC  19311  mask 

3  =  user  supplied 

BW  R*4  Signal  bandwidth  in  Hertz. 

SRATE  R<4  Symbol  rate  in  symbols/second. 

Output  arguments! 

Global  variables  input  from  common! 

FCTX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouency  of  transmitter 
filter. 
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IFILTX 


JBU 

JPOW 

LERR 

HODS6 

PENER6 

Global  variables 
CONJAM 

FCJ 

FCON 

FCRX 

FHI 

ICON 

NPOLJ 

NPOLRX 

NPOLTX 

PJ 

WFN 


/BUTPAR/  1*2  BUTPAR.INC 

Transmitter  filter  indicator. 

0  =  MD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eaual  to  half  symbol  duration. 

2  =  (not  allowed) 

/JAMPAR/  R*4  JAMPAR.  INC 

99%  interferer  bandwidth  in  MHz. 

/JAMPAR/  R*4  JAHPAR. INC 

Interferer  power  density  in  dBm/Hz'.  -174  or  less 
denotes  no  interference.  Default  is  -1000  dBm/Hz. 
/LUNS/  1*2  LUNS.INC 

Error  output  unit. 

/JAMPAR/  1*2  JAMPAR. INC 

Interference  signal  modulation  format.  Default  is  1. 

0  =  Analog  FDM  /  FM 
1  =  Digital  QPSK 

/BUTPAR/  R*4  BUTPAR.INC 

Normalized  energy  of  filter. 

output  to  common* 

/JAMPAR/  R*4  JAMPAR. INC 

Interference  constant. 

/JAMPAR/  R*4  JAMPAR. INC 

Normalized  3dB  cut-off  freauency  of  QPSK  interference 
filter • 

/BUTPAR/  R*4  BUTPAR.INC 

Ratio  of  bandwidth  to  twice  the  symbol  rate. 

/BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freauency  of  receiver  filter. 

/JAMPAR/  R*4  JAMPAR. INC 

Modulation  index  for  FDM/FM  interference. 

/BUTPAR/  1*2  BUTPAR.INC 

1  =  99%  bandwidth  constraint 

2  =  FCC-1391 1  bandwidth  constraint 

/JAMPAR/  1*2  JAMPAR. INC 

Number  of  poles  in  the  QPSK  interference  filter, 

/BUTPAR/  R*4  BUTPAR.INC 

Number  of  poles  in  the  receive  Butterworth  filter. 

/BUTPAR/  1*2  BUTPAR.INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 

/JAMPAR/  R*4  JAMPAR. INC 

Normalization  constant  for  interference  calculations. 
/JAMPAR/  R*4  JAMPAR. INC 

Normalization  constant  for  FDM/FM  interference, 
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8.4  ENRGF 


Subprogram  name!  Subroutine  ENRGF 

Purpose?  To  calculate  'energy'  of  cascade  of  Butterworth  filter  and 
filter  with  rectangular  impulse  response  by  integrating  power 
spectrum  of  the  cascade  of  the  two  filters. 

Calling  seauence? 

CALL  ENRGF  (NPOLE»FCUT  * IFILT  *PENERG»F1NCR » I  ERR ) 


Contained  in  module?  BUTFIL 


Called  by?  BWJAM.  FUNFW*  FUNJAH 


Calls?  PSPEC 


Input  arguments! 
NPOLE  1*2 
FCUT  R*4 

IFILT  1*2 


FINCR  R*4 


Number  of  poles  of  Butterworth  filter. 

Normalized  3-dB  cut  off  freauency  of  Butterworth 
filter. 

Rectangular  impulse  response  filter  duration  flag? 
0  =  symbol  duration 

1  =  half -symbol  duration 

2  =  no  rectangular  impulse  response  filter 
Normalized  freauency  increment  for  integration. 


Output  arguments? 

PENERG  R*4  Energy  of  cascade  of  the  two  filters. 

IERR  1*2  Error  flag?  0  =  no  error?  1  =  integral  did  not 

converge. 


■  -  *  - 


»-  ■-  *- 


/4V-- 
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8.5  FCCHSK 

Subprogram  name!  Subroutine  FCCHSK 

Purpose*.  To  compare  filter  attenuation  as  a  function  of  freouency  with 
FCC  19311  mask. 


Calling  seauencet 

CALI  FCCHSK  < Ml *N2»N3* IERR) 

Contained  in  Module*  BUTFIL 


Called  by* 

FUNBW 

Calls: 

A50FCC 

Input  arguments: 

N1 

1*2 

Number  of 

f reouencies 

to 

be 

tested 

in 

flat  50 

dB 

region. 

N2 

1*2 

Number  of 

f reouencies 

to 

be 

tested 

in 

linear 

attenuation  region. 

N3 

1*2 

Number  of 

f reouencies 

to 

be 

tested 

in 

flat  B<> 

dB 

region. 

Output  arguments! 

IERR  1*2  Error  flag. 

Global  variables  input  from  eoeaont 

F50L  /BUTPAR/  R*4  BUTPAR.INC 

50dB  normalized  corner  freouency. 

RSBB  /BUTPAR/  R*4  BUTPAR.INC 

10  times  the  base  10  logarithm  of  the  symbol  rate 
minus  60. 


w 
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B.A  FFT 

Subprograt  nate!  Subroutine  FFT 
Purpose!  Fast  Fourier  transform 

Reference!  Oppenheit*  Shaffer*  Digital  Signal  Processing*  p.332. 

Calling  seauence! 

CALL  FFT  (X*M* INDEX) 


Contained  in  todule!  PUTFIL 
Called  by!  SAMPLE 
Calls!  NONE 


Input  arguments! 
X ( 128 )  C*8 

M  1*2 

INDEX  1*2 


Output  arguments! 
X< 128)  C*8 


Input  seouence. 

Log  base  2  of  nutter  of  points  in  the  transfort. 
Processing  switch! 

1  -  Direct  FFT 
-1  *  Inverse  FFT 


Output  (fourier  transforted)  seouence. 


Global  variables  input  frot  cotton! 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 
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8.7  FUNBUI 

Subprogram  name?  Function  FUNBW 

Purpose*  To  determine  whether  Butterworth  filter  with  normalized  cut¬ 
off  freouency  F C  aeets  99%  or  FCC  19311  bandwidth  constraint 
(FUNBW  <  0)  or  not. 

Calling  seouence! 

FUNBW  <FC) 

Contained  in  module;  BUTFIL 

Called  by?  BUTFIL>  BWJAM 

Calls!  A50FCC,  ENRGF t  FCCMSK,  INTERB.  PSPEC 

Input  arguments? 

FC  R*4  Normalized  cut-off  freouency  of  Butterworth  filter. 

Output  arguments! 

FUNBW  R*4  Flags  whether  Butterworth  filter  with  normalized  cut¬ 

off  freouency  FC  aeets  99Z  or  FCC  19J11  bandwidth 
constraint  (FUNBW  <  0)  or  not. 

Global  variables  input  from  coaaon*. 

FCON  /BUTPAR/  R*4  BUTPAR.INC 

Ratio  of  bandwidth  to  twice  the  symbol  rate. 

ICON  /BUTPAR/  1*2  BUTPAR.INC 

1  =  99X  bandwidth  constraint 

2  =  FCC-13911  bandwidth  constraint 

IFILTX  /BUTPAR/  1*2  BUTPAR.INC 

Transmitter  filter  indicator. 

0  =  HD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  symbol  duration, 

1  =  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  symbol  duration. 

2  =  (not  allowed) 

NPOLTX  /BUTPAR/  1*2  BUTPAR.INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 
PENERG  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  energy  of  filter. 

Global  variables  output  to  common*. 

F50L  /BUTPAR/  R*4  BUTPAR.INC 

50dB  normalized  corner  freouency. 
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8.18  SPEC 


Subprogram  name!  C*8  Function  SPEC 

Purpose!  Evaluate  the  spectrum  (Fourier  transform  of  impulse  response)  _  • 

at  normalized  freouency  F  of  the  cascade  of  a  Butterworth  filter  and  a 
filter  with  a  rectangular  impulse  response. 


Calling  seouence: 


SPEC  <  F 

>  NPOLE » 

FCUT » IFILT ) 

- 

Contained  in 

module 

:  BUTFIL 

• 

Called  by! 

SPFC1 » 

SPEC  2 

Calls! 

NONE 

• 

Input  arguments: 

F 

Ft*4 

Freouency  relative  to  the  center  of  the  band 
normalized  to  the  symbol  rate. 

NPOLE 

1*2 

Number  of  poles  of  Butterworth  filter. 

FCUT 

R*4 

Normalized  3dB  cutoff  freouency  of  Butterworth  filter. 

IFILT 

1*2 

Rectangular  impulse  response  filter  duration  flag: 

• 

0  =  symbol  duration 

1  =  half-symbol  duration 

2  =  response  of  filter  is  an  impulse 

Output  arguments: 

SPEC 

C*8 

Spectrum  (Fourier  transform  of  impulse  response) 
at  normalized  freouency  F  of  the  cascade  of  a 

Butterworth  filter  and  a  filter  with  a  rectangular 
impulse  response. 

• 

Global  variables  input  from  common: 

PI 

/CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 

• 
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8.17  SEARCH 

Subprogram  name!  Subroutine  SEARCH 

Purpose!  Specify  3  Butterworth  filter  with  HPOLE  poles*  where 
NLOWER  <  NPOLE  <  HUPPER  and  3dB  cut-off  frenuency  FCUT  is 
FLOWER  <  FCUT  <  FUPPER  to  satisfy  the  constraint  FUN  <  0  and  to 
mimimize  a  pulse  duration  criterion. 


Calling  seouence! 

CALL  SEARCH  < IFUN.FUN*FLOWER*FUPPER*NLOWER»NUPPER»FCUT*  NPOLE*IERR> 
Contained  in  module!  BUTFIL 


Called  by! 

BWJAH 

Calls! 

RTHI 

Input  arguments! 

IFUN 

1*2 

FLOWER 

R*4 

FUPPER 

R*4 

NLOWER 

1*2 

NUPPER 

1*2 

FUN 

R*4 

Output  arguments! 

FCUT 

R*4 

NPOLE 

1*2 

IERR 

1*2 

FUNJAN  FUNBW 


Process  switch! 

1  =  specify  transmit  filter  parameters 

2  =  specify  receive  filter  parameters 
Lower  limit  for  cut-off  freouencs*  FCUT. 
Upper  limit  for  cut-off  freouencw*  FCUT. 
Lower  limit  for  number  of  poles*  NPOLE. 
Upper  limit  for  number  of  poles*  NPOLE. 
Function  name! 

For  IFUN  =  1,  FUN  =  FUNBW 
For  IFUN  =  2*  FUN  =  FIJNJAM 


3-dB  cut  off  freouency  of  Butterworth  filter. 
Number  of  poles  of  Butterworth  filter. 

Error  flag! 

0  =  no  error 

1  =  FLOWER  is  too  large 

2  =  FUPPER  is  too  small 

3  =  no  solution  found 


Global  variables  input  from  common! 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

PI  /CONSTA/  RM  CONSTANTS ,  INC 

Constant  Pi  =  3.1415926S4. 

Global  variables  output  to  common! 

NPOLRX  /BUTPAR/  R*4  BUTPAR.INC 

Number  of  poles  in  the  receive  Butterworth  filter. 
NPOLTX  /BUTPAR/  1*2  BUTPAR.INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 
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8*16  SAMPLE 

Subprodraa  naaet  Subroutine  SAMPLE 

Purpose?  Calculate  iapulse  response  of  filter  with  spectrua  (Fourier 
Transfora  of  iapulse  response)  WFUN. 


Callina  seouence! 

CALL  SAMPLE  ( MSAMPL* WFUN » RATE »MMIN*HMAX »TMAX »FMAX»N8MPL» IERR) 


Contained  in  aodulei  PUTFIL 
Called  by?  PUTFIL 
Calls:  FFT 


Input  arduaentst 


RATE 

R*4 

Saaplina 

rate  in  saaples/unit  of  tiae. 

MMIN 

1*2 

Loa  base 

2  of  ainiaua  FFT  lenath  to  be  considered 

MMAX 

1*2 

Loa  base 

2  of  aaxiaua  FFT  lenath  to  be  considered 

TMAX 

R*4 

Maxiaua 

lenath  of  iapulse  response. 

FMAX 

R*4 

m 

D 

m 

•pH 

X 

fo 

X 

freauency  in  spectrua. 

Output  arauaentst 

USAMPL(128> 

R*4 

Iapulse  response. 

UFUN 

C*8 

Spectrua  function  naae. 

NSMPL 

1*2 

Nuaber  of  saaples  in  iapulse  response. 

IERR 

1*2 

Error  flaa*  0  =  no  error?  1  =  inadeauate  I 

lenath. 

> 
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8.15  RTMI 

Subprogram  naaeJ  Subroutine  RTHI 

Purpose*  IBH  SSP  Library  routine.  RTHI  solves  the  General  nonlinear 
eouation  of  the  fore  FCN(x)  =  0  by  Newton's  iteration  method. 

Calling  seouence* 

CALL  RTHI  <X,F»FCT*XLI»XRI,EPS» JFND.IER) 

Contained  in  module:  BUTFIL 
Called  by!  BUJAH>  SEARCH 

Calls*.  NONE 

Input  arguments! 

FCT  R*4  Name  of  external  subroutine  used.  It  computes 

to  given  argument  X  and  function  value  F.  Parameter 
list  must  be  X»  F . 

XLI  R*4  Seal  lest  value  of  X. 

XRI  R*4  Largest  value  of  X. 

EPS  R*4  Input  value  that  specifies  the  upper  bound  of  the 

error  of  result  X. 

IEND  1*2  Haxieue  nueber  of  iteration  steps  specified. 

Output  arguments! 

X  R*4  Resultant  root  of  eouation  f(x)  =  0. 

F  R*4  Resultant  function  value  at  root  X. 

IER  1*2  Resultant  error  codel 

0  =  No  error. 

1  =  No  convergence  after  IEND  iteration  steps. 
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PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.14t5926f54, 

WFH  / JAHPAR/  RM  JAMPAR.INC 

Normalization  constant  for  FDH/FN  interference. 
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8.14  PSPJ 

Subprogram  name'  Function  PSPJ 

Purpose!  Power  spectrum  of  interferer  at  freouenca  F. 

Calling  seouence! 

PSPJ  <F) 

Contained  in  module*.  BUTF1L 

Called  ba:  FUNJAM>  PSPEC2*  PURSPC 

Calls?  PSPEC 

Input  arguments! 

F  R*4  Freouenca  relative  to  the  center  of  the  band 

normalized  to  the  sambol  rate. 

Output  arguments! 

PSPJ  R*4  Power  spectrum  of  interferer  at  freouenca  F, 

Global  variables  input  from  common! 

FCJ  /JAMPAR/  R*4  JAMPAR . INC 

Normalized  3dB  cut-off  freouenca  of  QPSK  interference 
filter. 

FCTX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouenca  of  transmitter 
filter. 

FNI  /JAMPAR/  R*4  JAMPAR. INC 

Modulation  index  for  FDM/FM  interference. 

IFILTX  /BUTPAR/  1*2  BUTPAR.INC 

Transmitter  filter  indicator. 

0  =  MD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  sambol  duration. 

1  =  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  sambol  duration. 

2  =  (not  allowed) 

MODSG  /JAMPAR/  1*2  JAMPAR. INC 

Interference  signal  modulation  format.  Default  is  1. 

0  =  Analog  FDM  /  FM 

1  -  Digital  QPSK 

NPOLJ  /JAMPAR/  1*2  JAMPAR, INC 

Number  of  poles  in  the  QPSK  interference  filter. 

NPOLTX  /BUTPAR/  1*2  BUTPAR.INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 
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8.13  PSPEC2 

Subprogram  name!  C*8  Function  PSPEC2 

Purpose*  To  calculate  power  spectrum  of  interf erer-receiver  filters  at 
normalized  freouency  F. 

Calling  seouence! 

PSPEC2  (F) 

Contained  in  module!  BUTFIL 
Called  by!  BUTFIL 
Calls!  PSPEC »  PSPJ 

Input  arguments! 

F  RM  Freouency  relative  to  the  center  of  the  band 

normalized  to  the  symbol  rate. 

Output  arguments! 

PSPEC2  C*8  Power  spectrum  of  interferer-recei ver  filters  at 
normalized  freouency  F. 

Global  variables  input  from  common! 

FCRX  /BUTPAR/  RM  BUTPAR. INC 

Normalized  3dB  cut-off  freouency  of  receiver  filter. 
FJSEPN  /JAHPAR/  RM  JAMPAR.INC 

Normalized  freouency  separation  between  the 
interference  signal  and  the  desired  signal. 

IFILRX  /BUTPAR/  1*2  BUTPAR. INC 

Receiver  filter  indicator. 

0  =  NB-918  receiver  filter.  Also  means 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 

NPOLRX  /BUTPAR/  RM  BUTPAR, INC 

Number  of  poles  in  the  receive  Butterworth  filter. 
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8.12  PSPEC1 

Subprogram  name!  C*8  Function  PSPECi 

Purpose*  To  calculate  power  spectrum  of  receiver  filter  at  normalized 
freauency  F. 

Calling  seauence! 

PSPECI  (F) 

Contained  in  nodule!  8UTFIL 
Called  by*.  BUTFIL 
Calls!  PSPEC 

Input  arguments! 

F  R*4  Freauency  relative  to  the  center  of  the  band 

normalized  to  the  symbol  rate. 

Output  arguments* 

PSPECI  C*8  Power  spectrum  of  receiver  filter  at  normalized 
freauency  F. 

Global  variables  input  from  common! 

FCRX  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  3dB  cut-off  freauency  of  receiver  filter. 
IFILRX  /BUTPAR/  It2  BUTPAR. INC 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  means 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 

NPOLRX  /8UTPAR/  RI4  BUTPAR. INC 

Number  of  poles  in  the  receive  Butterworth  filter. 
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8.11  PSPEC 

Subprogram  name.  Function  PSPEC 

Purpose!  To  calculate  power  spectrum  of  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter  at  normalized  freouenca  F. 

Calling  seouence! 

PSPEC  <F»NPOLE»FCUT » IFILT) 

Contained  in  module!  BUTFIL 

Called  ba!  A50FCC.  ENROF *  FUNBW»  FUNJAHf  PSPEC1.  PSPEC2.  PSPJ>  PWRSPC 
Calls!  NONE 

Input  arguments! 

F  R*4  Freouenca  relative  to  the  center  of  the  band 

normalized  to  the  sambol  rate. 

NPOLE  1*2  Number  of  poles  of  Butterworth  filter. 

FCUT  R*4  Normalized  3-dB  cut  off  freouenca  of  Butterworth 

filter. 

IFILT  1*2  Rectangular  impulse  response  filter  duration  flag* 

0  *  sambol  duration 

1  =  half-sambol  duration 

2  =  impulse  response  is  an  impulse. 

Output  arguments! 

PSPEC  R*4  Power  spectrum  of  cascade  of  Butterworth  filter 

with  rectangular  impulse  response  filter  at  normalized 
freouenca  F . 

Global  variables  input  from  common! 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592A54, 
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8.10  PEAK 

Subproaram  name!  Subroutine  PEAK 

Purpose*  To  calculate  the  peak  of  the  transmitted  waveform  impulse 
response, 

Callina  seouence* 

CALL  PEAK  (XHAX,IHAX,X.N> 


Contained  in  module!  BUTFIL 
Called  b«*.  BUTFIL 
Calls!  NONE 

Input  arauments! 

X(N)  R*4  Impulse  response  of  transmitted  waveform.  Dimensioned 

to  128. 

N  1*2  Number  of  samples  in  impulse  response.  Maximum  is  128. 

Output  arauments! 

XNAX  R*4  Peak  value  of  impulse  response. 

I MAX  1*2  Index  of  peak  sample. 
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8*9  INTERB 


Subprogram 

name? 

Subroutine  INTERB 

Purpose? 

Linear 

interpolation  in  a  table  of  N  pairs  (XX.YY). 

Calling  seouence? 

CALL 

INTERB  ( Y> 

X» YY*  XX  »N» IERR) 

Contained 

in  aodule? 

BUTFIL 

Called  by? 

FUNBM 

Calls? 

NONE 

Input  arguments? 

X 

R*4 

Value  of  x-coordinate  for  which  y-coordinate  is 
desired. 

YY(N) 

R*4 

Tabulated  values  of  y-coordinate  corresponding  to 
tabulated  x-coordinate.  Dimensioned  to  30. 

XX<N) 

R*4 

Tabulated  value  of  x-coordinate  in  decreasing  order. 
Dimensioned  to  30. 

N 

1*2 

Number  of  tabulated  values  over  which  interpolation 

is  to  be  performed.  Maximum  is  30. 


Output  arguments? 

Y  R*4  Value  of  y-coordinate  corresponding  to  x-coordinate. 

IERR  1*2  Error  f last! 

0  =  no  error 

5  =  x-coordinate  value  greater  than  largest 

tabulated  value 

6  =  x-coordinate  value  less  than  smallest 

tabulated  value 
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8.8  FUNJAH 

Subprogram  name!  Function  FUNJAH 

Purpose*.  To  detemine  whether  adjacent  channel  interference  power  within 
receiver  bandwidth*  calculated  by  integrating  over  the  product  of  the 
interference  power  spectrum  and  the  receiver  filter  power  spectrum* 
degrades  the  SNL  by  less  than  1  dB. 

Calling  seouence: 

FUNJAH  <FC ) 

Contained  in  module*.  BUTFIL 

Called  by:  BUTFIL*  BWJAH 

Calls*.  ENR6F *  PSPEC.  PSPJ 

Input  arguments: 

FC  R*4  Normalized  cut-off  freouency  of  Butterworth  filter. 

Output  arguaents! 

FUNJAH  R*4  Flags  whether  adjacent  channel  interference  power 
within  receiver  bandwidth  degrades  the  SNL  by  less 
than  1  dB. 

Global  variables  input  from  coaaont 


CONJAH 

/JAHPAR/ 

R*4 

JAHPAR. INC 

Interference 

constant . 

FJSEPN 

/JAHPAR/ 

R*4 

JAHPAR. INC 

Normalized  freouency  separation  between  the 

interference 

signal  and 

the  desired  signal. 

IFILRX 

/BUTPAR/ 

1*2 

BUTPAR.INC 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  means 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 

NPOLRX  /BUTPAR/  R*4  BUTPAR.INC 

Number  of  poles  in  the  receive  Butterworth  filter. 

PJ  /JAHPAR/  R*4  JAHPAR .INC 

Normalization  constant  for  interference  calculations. 
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FCTX  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  3dB  cut-off  freouency  of  transmitter 
filter. 
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8.19  SPEC1 

Subprogram  name*  C*8  Function  SF'ECl 

Purpose?  Evaluate  the  spectrum  (Fourier  transform  of  impulse  response) 

at  normalized  frequency  F  of  the  receiver  filter. 

Calling  seouence? 

SPEC1  (F) 

Contained  in  module?  BUTFIL 
Called  by?  BUTFIL 
Calls?  SPEC 

Input  arguments? 

F  R*4  Freauency  relative  to  the  center  of  the  band 

normalized  to  the  symbol  rate. 

Output  arguments? 

SPEC1  C*8  Spectrum  (Fourier  transform  of  impulse  response) 

at  normalized  freauency  F  of  the  receiver  filter. 

Global  variables  input  from  common? 

FCRX  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  3dB  cut-off  freauency  of  receiver  filter. 
FCTX  /BUTPAR/  R*4  BUTPAR. INC 

Normalized  3dB  cut-off  freauency  of  transmitter 
filter , 

IFILRX  /BUTPAR/  1*2  BUTPAR. INC 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  means 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 

IFILTX  /BUTPAR/  1*2  BUTPAR, INC 

Transmitter  filter  indicator. 

0  =  HD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  *  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eaual  to  half  symbol  duration. 

2  =  (not  allowed) 
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NPOLRX 

NPOLTX 


/BUTPAR/ 
Nuaber  of 
/BUTPAR/ 
Nuaber  of 


R*4  BUTPAR. INC 

poles  in  the  receive  Butterworth  filter. 
1*2  BUTPAR. INC 

poles  in  the  trsnsait  Butterworth  filter. 
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8*20  SPEC2 

Subprogram  name!  C*8  Function  SPEC2 

Purpose*  To  calculate  the  spectrum  (Fourier  transform  of  impulse 

response)  at  normalized  freouenca  F  of  the  transmitter  filter. 

Calling  seouence! 

SPEC2  (F) 

Contained  in  module!  BUTFIL 
Called  bs!  BUTFIL 
Calls!  SPEC 

Input  arguments! 

F  R*4  Freouenca  relative  to  the  center  of  the  band 

normalized  to  the  sambol  rate. 

Output  arguments! 

SPEC2  C*8  Spectrum  (Fourier  transform  of  impulse  response)  at 

normalized  freouenca  F  of  the  transmitter  filter. 

Global  variables  input  from  common! 

FCTX  /BUTPAR/  R*4  BUTPAR, INC 

Normalized  3dB  cut-off  freouenca  of  transmitter 
filter. 

IFILTX  /BUTPAR/  1*2  BUTPAR. INC 

Transmitter  filter  indicator. 

0  =  MD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  sambol  duration. 

1  »  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  sambol  duration. 

2  =  (not  allowed) 

NPOLTX  /BUTPAR/  1*2  BUTPAR. INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 
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This  section  describes  the  HD-918  mo dee  performance  calculation  routines! 

User's  Manual 

Name  Description  section 


BERCAL  Short  term  performance 

calculation . 2.8.1 

BOTAC  Interference  covariance 

matrices . 2.8.1 

CAC  Cascade  of  filter  and  channel 

power  impulse  response  ....  HA 

CAJI  Thermal  noise  covariance  matrix  HA 

CAKl  Sisnal  covariance  matrix  C(K»L)  NA 

CHANGE  Matrix  utilits  ........  NA 

DINT  Double  integration  ......  NA 

EIGEN  Eigenvalues  and  eigenvectors  .  2.8.1 

ELHES  Matrix  conditioner  ......  2.9.4 

ERLANG  Butterworth  filter  calculation  NA 
HQR  Eigenvalues  ..........  2.9.4 

JAHCOM  Interference  covariance  matrix  NA 


HATA  Matrix  multiplication  .....  NA 

MATCO  Covariance  matrices  ......  NA 

MDTS  MD-918  modem  performance  .  .  .  2.8 

H1NV  Matrix  inversion  .......  NA 

ORDER  Order  values  in  vector  .  .  .  .  NA 

PDFCON  Coefficients  of  PDF  .  2. 8. 1.3 

PROUT  Print  out  outages  and  BF.R  ,  .  .  NA 

PSINE  Sine  product  .........  NA 

PHRSPC  Power  spectrum  -  receiver- 

interferer  .....  .  2.7.3 

RJCFCN  Receiver-interferer  correlation 

function . .  2.7.3 

SASEQ  Chip  seouence . .  .  .  .  NA 

SIGIN  Set  parameters . .  NA 

S1NC  SINC  function . NA 

SQTMAT  Matrix  souare  root  .  2.8.1 
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TPSPEC  Power  spectrua  -  Butterworth  .  2.7 

TPSPJ  Power  spectrua  -  interferer  .  .  2.7.3 

TSINC  Triangle  and  SINC  convolution  .  NA 

XNOR  Gaussian  PDF . NA 

The  main  routine  for  this  section  is  HDTS.  The  HD-918  calculations  are 
described  in  section  2.8  of  the  User's  Hsnua) . 

Figure  2-5  is  a  top  level  flowchart  for  HD-918  aodea  perforaance 
calculations  at  a  functional  level.  In  tost  cases  the  blocks  correspond  to  one 
or  sore  subprograms.  The  test  blocks  (diaaonds)  correspond  to  logical  branches 
which  are  decided  ba  the  user's  choices  of  input  data. 


NOTE 

In  aost  cases  the  sections  in  the  User's  Hanual  describe  the  coded 
eauations  as  well  as  the  theory  behind  thea.  NA  denotes  routines  that 
are  prograaaing  utilities  such  as  finding  indices*  setting  pointers. 


I 


Figure  2-5  Flow  Chart  for  the  MD-918  Modem  Performance  Calculations 
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9  .  1  BERCAL 

Suberoiraa  naae!  Subroutine  BERCAL 

Purpose*  BERCAL  computes  the  outage  probability*  fade  outaie  per  call 
ainute*  average  bit  error  rate  and  1000-bit  block  error  probability  as 
a  function  of  aean  hourly  scatter  SNR*  specular  coaponent  SNR*  OSNR* 
for  the  MD-918  aodea.  This  version  accounts  for  decorrelation  of  Ions 
tera  fadini  of  aain  and  elevated  beaas. 

Reference!  P.  Honsen  'Theoretical  and  aeasured  perforaance  of  a  DFE 
aodea  on  a  fadini  aultipath  channel. '*  IEEE  Transactions  on 
Coaaunications*  Vol.  COH-25*  No.  10*  October*  1977*  pp.  1144-1153. 

Callins  seouence! 

CALL  BERCAL ( 0 J4  *  JPOW  >  J5R >CRATE*IBER>  SNR • U  *  BOUT  >  ABE  * 

SOUT  *NOUT  *  V*F  *K3*K6* ASNR  * STSNR *F0Uf  *CG AIN* CORF AC* IFPK AO* 

XSCAT  *XDIFR*G*DSNR*ADSNR*BSTSNR*PTYPE* IFDSNR) 

Contained  in  aodule!  BERCAL 

Called  by*.  HDTS 

Calls!  ERLANG  PDFCON  XNOR 

Input  ariuaents! 

VJ4 

JPOW 


JSR 

CRATE 

IBER 


SNR 
F 

K3 
K  6 

ASNR 

STSNR 

CGAIN<3) 

CORF AC 

decorrelation  of  Ions  tera  variability  for 
anile  diversity. 


R*4  Gain  of  stroniest  iaplicit  diversity  branch 
of  elevated  beaa. 

R*8  Interferer  power  density  in  dBa/Hz.  If  JPOW  is 
less  than  -174  dBa  (background  noise  level)* 
BERCAL  assuaes  no  interference. 

R*8  Interferer  to  siinal  power  ratio  in  dB. 

R*4  Code  rate. 

1*2  Inteier  counter  used  to  indicate  the 

coapletion  of  averaiini  over  distributions  of 
SNR  and  DSNR  (IBER  =  2). 

R*4  Hean  hourly  SNR  in  dB  at  which  outase 
probability  is  to  be  calculated. 

R*4  Scatter  SNR  as  a  ratio.  Includes  aodea 

deiradation. 

1*2  Pointer*  with  K6*  to  blocks  of  eiienvalues. 

1*2  Pointer*  with  K3*  to  blocks  of  eiienvalues. 

R*4  Hean  of  loni  tera  distribution  of  scatter  SNR 
(Eb/No)  in  dB. 

R*4  Standard  deviation  of  loni  tera  distribution 
of  scatter  SNR  (Eb/No)  in  dB. 

R*4  Codini  iain  for  each  BER  threshold. 

R*4  Correction  factor  for  STSNR  due  to 


ID-918  HODEH  CALCULATIONS 
Subroutine  BENGAL 

IFPKAV 

XSCAT 

XDIFR 

G 

DSNR 

ADSNR 

DSTSNR 

PTYPE 

IFDSNR 

Output  araueents 
U(49) 

BOUT  (3»4) 

ABE<4) 

SOUT 

NOUT 

V( 196) 

FOUT (3>4) 

Global  variables 
APOW 

BER<3> 

DIVTYP 
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1*2  Switch  to  print  outage  probability  as  a 

function  of  peak  scatter  SNR  <Ep/No)  when 
IFPKAV  =  If  or  average  scatter  SNR  (Eb/No) 
when  IFPKAV  =  0* 

R*4  Scatter  SNR  as  a  fraction  of  total  power* 

R*4  Specular  component  SNR  as  a  fraction  of  total 
power  * 

RM  Specular  component  SNR  as  a  ratio. 

R*4  Specular  component  SNR  in  dB. 

R*4  Hean  of  long  tern  distribution  of  specular 
component  SNR  in  dB. 

R*4  Standard  deviation  of  long  tera  distribution 
of  specular  coaeonent  SNR  in  dB. 

1*2  Indicates  whether  path  is  pure  scatter 

(PTYPE  *  0)  or  aixed  scatter/diffraction 
(PTYPE  =  1). 

L*4  Flag  indicating  which  values  of  DSNR  to  output. 


R*4  Eigenvalues  which  are  the  gains  of  the 

iaplicit  diversity  paths.  The  first  three 
gains  correspond  to  the  aain  beaa  path. 

R*4  Yearly  average  outage  probabilities  for 

the  different  BFR  thresholds  and  diversity 
configurations  specified  (see  table). 

R*4  Yearly  average  1000-bit  block  error 

probability  for  each  diversity  configuration 
specified  (see  table). 

R*4  Noraal ization  constant  for  averaging  over 
yearly  distribution  of  SNR  and  DSNR. 

R*4  Nuaber  of  teras  in  nuaerical  integration 
over  distribution  of  SNR  and  DSNR, 

R*8  Inverse  of  SNR  per  iaplicit  diversity. 

R*4  Yearly  average  fade  outage  per  call  ainute 

for  the  different  BER  thresholds  and  diversity 
configurations  specified  (see  table). 

input  froa  coaaoni 

/NC0M4/  R*4  MCOK.INC 

Angle  diversity  sauint  loss  as  a  ratio. 

/ERAD/  R*4  ERAD.INC 

Bit  error  rate  thresholds  of  interest.  Set  to  lE-3> 
IE-4  and  IE-5  in  data  stateaent. 

/NC0H2/  1*2  HCOH.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas?  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna?  2A  2F  2F/2A 

2*2  transaiti 

2  receive  antennas?  2S/2P  2S/2P/2A 
3  =  Not  used 
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LOUT 

NERT 


4  =  User  supplied  parameters 

S  =  Space  F  =  Freouency  A  =  Andie  P  =  Polarization 
/LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number* 

/HC0H2/  1*2  HC0H.1NC 

Bit  error  rate  threshold  indicator  for  yearly  fade 

outage  probability  calculation*  Default  is  2* 

0  =  All  three  thresholds 

1  =  For  10*t(-3>  only 

2  =  For  10**<-4)  only 

3  =  For  10**(- 5)  only 
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9.2  BOTAC 

Subprogram  name!  Subroutine  BOTAC 

Purpose!  Initialise  C(KK»KK)>  A(KK*KK)»  BI)IJT(S*4)»  and  ABE(4)  arrays. 
Compute  interferer  covariance  matrix  TAC(KK»KK)  for  JPOW  >  -174 
accordin'!  to  RF  filtering  specified  through  parameters  IBM  and  JFILT. 
IBM  specifies  whether  the  receiver  has  an  RF/IF  filter  (IBM  >  0)  or 
not  (IBM  =  0).  If  the  receiver  does  not  have  an  RF  filter*  JFILT 
indicates  whether  the  interference  covariance  matrix  calculation 
includes  ground  reflections  (JFILT  =  1)  or  not  (JFILT  =  0). 


Calling  seouence! 

CALL  BOTAC  (K.KK.Klt JPOW. JBW > TZ. C*A»TAC* BOUT »N0UT» ABE >F0UT* 
BWRf ASEPf JANG) 

Contained  in  module!  BOTAC 

Called  by!  NDTS 

Calls!  JANCOH*  RJCFCN.  TSINC 


Input  arguments! 
K 

JPOW 

JBW 

TZ 


BWR 

ASEP 

JANG 


1*2  Flag!  =  1  for  K1  *  Si  -  0  for  K1  =  1. 

R*8  Interference  power  density  in  dBm/Hz. 

R*8  Interference  normalized  bandwidth. 

R*4  Time  delay  between  interference  signal 

received  on  two  horizontally  spaced  antennas. 
It  is  a  function  of  antenna  separation  and 
interferer  angle  of  arrival.  (See  MDTS.) 

R*4  Receive  antenna  beamwidth  in  degrees. 

R*4  Separation  distance  between  receiving  antennas 

in  meters. 

R*8  Interference  off-borsisht  angle  of  arrival  in 
degrees • 


Output  arguments! 

KK 

1*2 

K1 

1*2 

C(KK.KK) 

R*4 

A(KK.KK) 

R»4 

TAC(KK»KK) 

R*4 

BOUT (3.4) 

R*4 

NOUT 

R*4 

Dimension  of  A*C*  and  TAC  arrays.  Naximum 
is  14. 

Number  of  taps  in  forward  equalizer. 

Signal  covariance  matrix  initialized  to  zero. 
Dimensioned  as  14x14. 

Noise  covariance  matrix  initialized  to  zero. 
Dimensioned  as  14x14. 

Interferer  covariance  matrix  calculated 
according  to  RF  filtering  specified  through 
IBM  and  JFILT  parameters.  Dimensioned  as 
14x14. 

Outage  probability  array  initialized  to  zero. 
Number  of  short  term  outage  probability 
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calculations  initialized  to  zero. 

ABF(3»4)  R*4  Average  block  error  array  initialized  to  zero* 

F0UT(3»4)  R*4  Fade  outage  array  initialized  to  zero. 

Global  variables  input  fro*  coaaoni 

IBU  /MC0M2/  1*2  MCOM.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  =  No  RF  filtering 

1  =  Filter  deterained  froa  99%  bandwidth  constraint 

2  =  Filter  chosen  to  aeet  FCC  Mask.  <FCC-19311) 

3  =  Filters  are  user  specified 

JFILT  /NC0H2/  1*2  MCOM.INC 

Interference  covariance  aatrix  calculation  indicator. 
Only  used  when  IBW  eouals  0»  otherwise  ignored. 

Default  is  0. 

0  =  Interferer  covariance  aatrix  calculation 
done  in  subroutine  BllTAC 
1  =  Interferer  covariance  aatrix  calculation 
done  in  subroutine  JAMCOM 


LOUT 

/LUNS/ 

1*2 

LUNS. INC 

F0R002.DAT 

output  unit  nuaber. 

NJR 

/R24/ 

1*2 

RZ4.INC 

Nuaber  of  : 

saaple  points 

for  RJCOR. 

TAPM 

/MC0M4/ 

R*4 

MCOM.INC 

Noraalized 

tapwidth  for 

MD-918.  Default  is 

Range  is  0 

.25  through  1 

.0 
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9.3  CAC 

Subprodraa  naael  Function  CAC 

Purpose*.  Computes  G(XZ-SK)  *  G(XZ-SL)  *  Z«<T0-XZ>  when  SIGMA  >  0  and 
G(XZ-SK)  when  SIGMA  <  0.  G(X)  is  the  iapulse  response  of  the  cascade 
of  the  transaitter  and  receiver  filters  and  Z0(X)  is  the  power  per 
unit  delaa  or  correlation  per  unit  delay  of  the  perceived  scatter 
sianal  component* 

Callina  seouence! 

CAC  (XZ'SK'SL'SIGMA'TO'ZQ) 

Contained  in  aodulei  DINT 

Called  by*.  DINT  MATCO 

Calls:  FILSIX  SINC 

Input  arduaentsl 

XZ  R*4  Noraalized  tiae  at  which  function  is  to  be  evaluated. 

SK  R*4  Tap  saaplind  tiae  relative  to  AFE  center  taF  . 

SL  R*4  Saae  as  SK. 

SIGMA  R*4  Noraalized  delay  spread  of  scatter  coaponent. 

TO  R*4  Noraalized  saaplina  tiae  for  center  tap  relative  to 

centroid  of  power  per  unit  delay  profile. 

ZQ  R*4  Power  per  unit  delay  or  correlation  per  unit  delay 

profile  for  scatter  sianal. 

Output  arauaents! 

CAC  R*4  Value  of  G(XZ-SK)  *  GIXZ-Sl >  *  Ztt(lO-XZ). 

Global  variables  input  froa  coaaon*. 

DELPBZ  /RZ1/  R*4 

Resolution  of  a  delay  cell  in  seconds.  Saae  as  DELPB 
in  /PDATA/, 

DIVTYP  /MC0M2/  1*2  MCOM.INC 

Diversity  conf iduration  indicator.  Default  is  0. 

0=2  receive  antennas?  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna?  2A  2F  2F/2A 

2=2  transaiti 

2  receive  antennas?  2S/2P  2S/2P/2A 

3  *  Not  used 

4  =  User  supplied  paraaeters 

S  =  Space  F  =  Freoueney  A  =  Anale  P  =  Polarization 
DRATE  /MC0M4/  R*4  MCOM.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

DU<256>  /RZ/  R*8  RZ.INC 

Sianal  response  after  PN  seouence  correlation. 

/MC0M2/  1*2  MCOM.INC 


ICORR 
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Multipath  profile  correlation  indicator.  Default 
is  2. 

0  *  Profile  of  the  for*  X  *  exp(-A*X)  —  used  for 
debugging 

1  *  Computed  tultipath  profiles  no  beat  correlation 

2  =  Cotputed  tultipath  profile}  beat  correlation. 

IFILE  /MC0M2/  1*2  MCOM.INC 

Pointer  to  tultipath  profile. 

JQ2M  /MC0M4/  1*2  MCOM.INC 

Pointer  to  centroid  of  lower  beat  troposcatter  signal 
power  per  unit  delay  profile. 

KGAIN  /RZ/  1*2  RZ.INC 

Integer  ratio  of  bandwidth  to  data  rate. 

NDELO  /MC0M4/  1*2  MCOM.INC 

Nutber  of  non-zero  eletents  of  troposcatter  power  per 
unit  delaw  profiles  Q(Nl)ELQsl). 

NIP  /RZ/  1*2 

Initialization  constant  for  nuterical  eaualizer 
covariance  tatrix  calculation. 

NTR  /RZ4/  1*2  RZ4.INC 

Nutber  of  satples  for  calculating  transtit-receive 
filter  itpulse  response  (TRFILT), 

PCON  /RZ/  R*8  RZ.INC 

Nortalization  factor  for  probability  integral. 

PULSE  /RZ/  1*2  RZ.INC 

Switch  controlling  MB-918  pulse  shape  after 
transtitter-receiver  filtering. 

PULSE  =  0  Triangle 

=  1  00PSK  tatched  filter 

=  2  Sine  pulses  bandwidth  eoual  to  1 
=5  RF  filtering  included 
Set  to  0  if  IBM  =  0  or  KGAIN  >  1. 

Set  to  5  if  IBM  >  0  and  KGAIN  =  1. 

TRFILT (128)  /RZ4/  R*4  RZ4.INC 

Transtit-receive  filter  itpulse  response. 

XTRO  /RZ4/  R*4  RZ4.INC 

Tite  origin  for  transtit-receive  filter  itpulse 
response  (TRFILT)s  ies  X  is  TRFILT(XtXTRO) . 

XTRINC  /RZ4/  R*4  RZ4.INC 

Satple  interval  for  calculation  of  transtit-receive 
filter  itpulse  response  (TRFILT). 
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9.4  CAJI 

Subprogram  name*  Subroutine  CAJI 

Purpose!  Calculate  thermal  noise  covariance  matrix  for  AFE  taps. 

Calling  seouence! 

CALL  CAJI  (K»A) 


Contained  in  module!  CAJI 
Called  by!  HATCO 
Calls!  NONE 

Input  arguments! 

K  1*2  Number  of  taps  on  either  side  of  center  tap 

of  AFE. 

Output  arguments! 

A<14'14)  R*4  Thermal  noise  covariance  matrix. 


Global  variables  input  from  common! 

DU<256>  /RZ/  R*8  RZ.INC 

Signal  response  after  PN  seouence  correlation, 

NB  /RI2/  1*2  RI2.1NC 

Number  of  elements  accessed  in  arrays  DU »  DX  and  DY . 


PULSE  /RZ/  1*2  RZ.INC 

Switch  controlling  HD-918  pulse  shape  after 
transmitter-receiver  filtering. 


PULSE  =  0 
=  1 
=  2 
=  5 

Set  to  0  if  IBM  = 
Set  to  5  if  IBM  > 
RC0R<  32)  /RZ4/  R 


Triangle 

OGPSK  matched  filter 

Sine  pulse*  bandwidth  eaual  to  1 

RF  filtering  included 

or  KBAIN  >  1. 

and  KGAIN  =  1. 

RZ4.INC 


Correlation  function  of  the  receive  filter  in  steps 
eaual  to  the  tapwidth  (TAPH)  for  HD-918  modem*  or 
eoual  to  1/RATE  for  AN/TRC-170  or  DAR  modem. 

TAPW  /HC0H4/  R*4  HCOM.INC 

Normalized  tapwidth  for  HD-918.  Default  is  .5. 
Range  is  0.25  through  1.0 
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IFPRNT 

1*2 

Switch  to  enable  debug  print  out  (=1). 

DUPOW 

R*4 

Ratio  of  diffraction  signal  component  on  upper 
beam  to  that  on  lower  beam. 

IFDSNR 

L*4 

Switch  to  enable  print  out  of  covariance 
matrices  for  mixed  scatter/diffraction 
propagation  conditions. 

Output  arguments' 

C<14*14)  R*4  Scatter  signal  covariance  matrix  for  AFF.  taps. 

C0(7*7)  R*4  Scatter  signal  covariance  sub-matrix  for  lower 

beam  AFF  taps. 

Cl<7*7)  R*4  Scatter  signal  covariance  sub-matrix  for  upper 

beam  AFE  taps. 

C2(7>7)  R*4  ISI  covariance  matrix  for  lower  beam  taps. 

C3<7*7)  R*4  ISI  covariance  matrix  for  upper  beam  taps. 

C4<7»7)  R*4  Scatter  signal  correlation  sub-matrix  for 

lower/upper  beam  (DIVTYP  =  0*1)  or  crossed 
paths  (DIVTYP  =  2). 

CSUM(14»14)  R*4  ISI  covariance  matrix  for  AFF  taps. 

AF (14*14)  R*4  Thermal  noise  covariance  matrix  for  AFE  taps. 

A( 1 4* 14 )  R*4  Same  as  AF. 

Global  variables  input  from  common. 

DIVTYP  /MC0M2/  1*2  MCDM.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas*  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna*  2A  2F  2F/2A 

2=2  transmit* 

2  receive  antennas*  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freaueney  A  =  Angle  P  =  Polarization 
LDEBUG  /LUNS/  1*2  LUNS.INC 

Debug  output  unit.  Always  the  same  as  LOUT  but  used 
to  uniauely  identify  the  write  statements. 

LISI  /MCQM2/  1*2  MCON.INC 

Number  of  future  Intersymbol  Interference  (ISI) 
contributors  considered  in  ND-9t8  performance 
calculation.  Default  is  2. 

LOUT  /LUNS/  1*2  LUNS -  INC 

F0R002.DAT  output  unit  number. 

TAPW  /HC0M4/  R*4  MCON.INC 

Normalized  tapwidth  for  MD-918.  Default  is  .5. 

Range  is  0.25  through  1.0 
TDIFF  /MC0M4/  R*4  MCON.INC 

Normalized  relative  delay  between  lower  and  upper 
beam. 

Global  variables  output  to  common' 

IFILE  /NC0N2/  1*2  MCOM.INC 
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9.14  HATCO 

Subprodraa  naae:  Subroutine  HATCO 

Purpose:  To  compute  the  troposcatter  signal  covariance  Matrix  C  and 

sub-aatrices  CO.  Cl.  C4»  theraal  noise  covariance  Matrices  A  and  AF » 
ISI  covariance  Matrix  CSIJH >  and  I S I  sua-aat rices  C2  and  C3»  and  Mean 
diffraction  aMPlitude  vector  FSIS  for  the  HP-918  AFE  taps. 

Calling  seouencet 

CALL  HATCO  (SIGHA.SIGH1 .C.C0.C1 .C2.C3 .C4.CSUH . Q» AF. A. K.K1 . 

KK»  TO. TA.TSCAT. JPOW.ELOSS. XSCAT » XDIFR.PTYPE. JGBH. IFPRNT . DUPOUr  IFOSNR) 

Contained  in  Module,  HATCO 

Called  but  HDTS 

Calls!  CAC »  CA JI »  CAKL 

Input  arduaents: 


SIGHA 

R»4 

Noraalized  delay  spread  of  scatter  signal  in 
lower  beaa. 

SIGH1 

R*4 

Noraalized  delay  spread  of  scatter  signal  in 
upper  beae. 

0(100.7) 

R*4 

Power  per  unit  delay  and  correlation  per  unit 
delay  for  scatter  signal  in  each  receiving 
aperture. 

K 

R«4 

Flag:  1  for  K1  =  3.  0  for  K1  =  1. 

K1 

R*4 

Nueber  of  taps  in  AF'E. 

KK 

R*4 

Total  nueber  of  correlated  taps  (diaension  of 
covariance  Matrix)  for  angle  and/or  space 
diversity . 

TO 

R*4 

Noraalized  saaplind  tier  (relative  to  scatter 
coaponent  Mean  tiae  of  arrival)  for  lower 
beaa. 

TA 

R*4 

Noraalized  saaplind  tiae  (relative  to  scatter 
coaponent  Bean  tiae  of  arrival)  for  upper 
beaa. 

TSCAT 

R*4 

Noraalized  relative  delay  between  scatter  and 
diffraction  coaponent. 

JPOM 

R*8 

Interference  power  density  in  dba/Hz» 

ELOSS 

R*8 

Souint  loss  for  scatter  signal  in  upper  beaa 
in  dP. 

XSCAT 

R*4 

Fraction  of  scatter  signal  power. 

XDIFR 

R*4 

Fraction  of  diffraction  signal  power. 

PTYPE 

R»4 

Indicates  whether  pure  scatter  (PTYPE  =  0)  or 
Mixed  scatter/diffraction  path  (PTYPE  =  1). 

JQDH 

R«4 

Index  in  power  per  unit  delay  profile 
corresponding  to  delay  bin  of  the  specular 
(diffraction)  coaponent. 
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9,13  HAT A 

Subprogram  name*.  Subroutine  MATA 

Pureoset  IBM  routine  for  aatrix  multiplication. 

S(MtN)  *  T (N»L)  =  SI (M»L) * 

Calling  seouence! 

CALL  MATA  <S»T »STfMiN>L»NSRfNSCiNTR»NTC»NSTR»NSTC) 

Contained  in  aodulel  MATOPS 

Called  by*.  MDTS»  SQTMAT 

Calls'.  ERROR 

Input  arduaents* 

S(NSRtNSC) 

T(NTRfNTC) 

M 
N 

L 

NSR 
NSC 
NTR 
NTC 
NSTR 
NSTC 

Output  arguments’ 

ST(NSTR.NSTC)  R*4  Matrix  product  of  S<.)  and  T(.). 


R*4  Input  aatrix  to  be  right  aultiplied  bu  T. 

R*4  Input  aatrix. 

1*2  Nuaber  of  actual  rows  of  aatrices  S  and  ST. 

1*2  Nuaber  of  actual  coluans  of  matrix  S  and  rows 

of  aatrix  T. 

1*2  Nuaber  of  actual  coluans  of  aatrices  T  and  ST. 
1*2  Row  diaension  of  aatrix  S.  No  maximum  set. 

1*2  Column  diaension  of  aatrix  S.  No  maximum  set. 

1*2  Row  diaension  of  aatrix  T.  No  maximum  set. 

1*2  Column  diaension  of  aatrix  T.  No  maximum  set. 

1*2  Row  diaension  of  matrix  ST.  No  maximum  set. 

1*2  Column  diaension  of  aatrix  ST.  No  maximum  set 
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is  the  osin  receive  antenna. 

TAPW  /NCQH4/  R*4  MCim.INC 

Normalized  taewidth  for  HD-918.  Default  is  .5. 
Range  is  0.25  through  1.0 
THER  /PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  receive  site  in 
radians. 

Global  variables  output  to  coaaon! 

A  /PATHGE/  R*4  TROCOM.INC 

Effective  earth  radius  in  aeters. 
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9.12  JAHCOH 

Subprogram  name*  Subroutine  JAHCOH 

Purpose*  Calculate  covariance  matrix  for  one  interferer  with  one  direct 

path  and  one  reflected  path.  Reflections  off  a  horizontal  surface.) 

Angles  of  arrival  and  delay  are  assumed  identical  for  both  antennas. 

Calling  seouence! 

CALL  JAHCOH  (TAC.  BUR*  ASEP*  JANG) 

Contained  in  module!  JAHCOH 

Called  by!  BOTAC 

Calls!  TSINC 

Input  arguments* 

BUR  R*4  3dP  beamuidth  of  receiving  antenna  in  degrees. 

ASEP  R*4  Separation  between  receiving  antennas  in  meters. 

JANG  R*8  Interferer  angle  of  arrival  in  degrees. 

Output  arguments! 

TAC( 14*14)  R*4  Covariance  matrix. 

Global  variables  input  from  common! 

ATTEN  /HC0H4/  R*4  HCOH.INC 

Ratio  of  interferer  signal  amplitude  on  antenna 
2  to  that  at  antenna  1,  Set  to  1  internally. 

BU  /SYSTRN/  R*4  TR0C0H.INC 

Bandwidth  in  Hertz.  Default  is  7  HHz. 

DRATE  /HC0H4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

ELANG(IO)  /HC0N4/  R*4  HCOH.INC 

Interferer  elevation  angles  in  degrees.  Default  is  0. 

HRN  /PATHGE/  R*4  TROCOH.INC 

Receive  antenna  height  above  sea  level  in  meters. 

JREFL  /HCQH2/  1*2  HCOH.INC 

Indicates  whether  specular  reflection  is  to  be 
included  in  interferer  covariance  matrix  calculation 
(JREFL  -  1)  or  not  (JREFL  =  0).  Default  is  0. 

LANG  /HC0H2/  1*2  HCOH.INC 

Pointer  to  data  array  elements  containing  interferer 
azimuth  and  elevation  angles. 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 

PSIREO(NRHX)  /ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  beam  boresight  elevations  above 
radio  horizon  in  radians*  ie>  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSIREO(l) 
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9.11  HQR 

Subprograa  naae!  Subroutine  HQR 
Purpose:  Find  eigenvalues  of  Matrix  H. 

Calling  seouencel 

CALL  HQR  (NM»N*L0U> IGH>HrWR»WI # IERR) 
Contained  in  Module!  ELHES 
Called  by!  EIGV.  hDTS 


Calls!  NONE 


Input  arsuaents! 
NH  1*2 

N  1*2 

LOU  1*2 

IGH  1*2 

H(NH'N)  R«8 


Diaension  of  aatrix  H.  No  aaxiaua  sot. 

Diaension  of  Matrix  H  and  arrays  UR  and  MI.  No 
aaxiaua  set. 

Pointer  to  first  row  <or  coluan)  of  souare  sub-aatrix 
of  H. 

Pointer  to  last  row  (or  coluRn)  of  souare  sub-aatrix 
of  H. 

Souare  aatrix  whose  eigenvalues  are  to  be  found. 


Output  arguaentsi 
H(NH»N)  R*8 
MR(N)  R*8 
UI(N)  R*8 
IERR  1*2 


Souare  aatrix  whose  eigenvalues  are  to  be  found. 
Real  part  of  eigenvalue. 

Iaaginary  part  of  eigenvalue. 

Error  flag.  0  for  no  error?  >  0  for  error 
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9.10  ERLANG 

Subprogram  name!  Function  ERLANG 

Purpose}  For  I  =  l»2f3  or  4  ERLANG  =  X**< I-l )  *  EXP(-A*X>  /  (1-1)! 
otherwise  ERLANG  =  10**38  for  precision  limits.  If  AtX  >  8b 
ERLANG  =  0.  (Where:  T  =  Integer  A>  X  =  Reel.) 

Calling  seauenceJ 
ERLANG  ( 1 1 A* X ) 

Contained  in  module*.  ERLANG 

Called  b«:  BERCAL »  POF.  PDFSUM 

Calls*.  NONE 

Input  arguments: 

I  1*2  Argument  of  factorial  and  power  in  ERLANG  function. 

A  R*8  Parameter  of  exponent  in  ERLANG  function. 

X  R*8  Argument  of  ERLANG  function. 

Output  arguments: 

ERLANG  R*8  Value  of  X**(I-1>  *  £XP(-A*X)  /  (1-1)!. 
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9.9  ELHES 

Subprodraa  naae*.  Subroutine  ELHES 

Purpose*  Conditions  aatrix  A  prior  to  HUR  findinS  eigenvalues  and 
eigenvectors* 

Calling  seouence* 

CALL  ELHES  (NH,N»L0W, IGH, A, INT ) 

Contained  in  aodule!  ELHES 

Called  bv:  EIGV,  HDTS 

Calls'.  NONE 

Input  arduaents* 


NH 

It2 

Row  diaension  of  aatrix  A.  No  aaxiaua  sot 

N 

1*2 

Coluan  diaension  of  aatrix  A.  No  aaxiaua 

LOU 

1*2 

Pointer  to  first  row  (or  coluan)  of  souare 
sub-aatrix. 

IGH 

1*2 

Pointer  to  last  row  (or  coluan)  of  souare 
sub-aatrix.  Also,  diaension  of  vector  INT 
No  aaxiaua  set. 

A(NH,N) 

R*8 

Hatrix  to  be  conditioned. 

Output  arduaents. 

A<NH>N) 

R*8 

Conditioned  aatrix. 

INT ( IGH) 

1*2 

Pointer  to  lowest  value  in  each  row  of  A. 
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9.8  EIGEN 

Subprogram  name!  Subroutine  EIGEN 

Purpose!  Compute  eigenvalues  and  eigenvectors  of  a  real  symmetric 
matrix. 

Reference!  The  process  used  is  the  diasonalization  method  originated 
bu  Jacobi  and  adapted  by  Von  Neuman  far  large  computers  as  found 
in  'Mathematical  Hethods  for  Digital  Computers'*  edited  by  A.  Ralston 
and  H.S.  Milf*  John  Miley  and  Sons*  New  York*  1962*  Chapter  7, 

Calling  sequence! 

CALL  EIGEN  (A*R*N*MV> 

Contained  in  Module!  EIGEN 

Called  by!  HDTS  SQTHAT 

Calls!  NONE 

Input  arguments! 

A(N)  R*4  Original  matrix  (symmetric).  Destroyed  in 

computation.  Resultant  eigenvalues  are  stored 
in  diagonal  of  matrix  A  in  descending  order.  This 
matrix  must  be  real  symmetric  and  must  not  be  in  the 
same  location  as  matrix  R.  Matrix  A  must  also  be 
stored  in  Storage  Node  t*  which  means  that  only  the 
upper  right  triangle  is  stored  by  columns  through 
each  diagonal  element!  A(1*D*  A(l*2>*  A(2*2>* 

A(l*3>*  etc.  into  vector  form. 

N  1*2  Order  of  matrices  A  and  R.  No  limit  set  on  size. 

MV  1*2  Input  code. 

0  =  Compute  eigenvalues  and  eigenvectors. 

1  =  Compute  eigenvalues  only.  (R  need  not  be 
dimensioned  but  must  still  appear  in  calling 
seouence. ) 

Output  arguments! 

A(N)  R*4  Original  matrix  (symmetric).  Destroyed  in 

computation.  Resultant  eigenvalues  are  stored 
in  diagonal  of  matrix  A  in  descending  order.  This 
matrix  must  be  real  symmetric  (storage  mode  1)  and 
must  not  be  in  the  same  location  as  matrix  R. 

R*4  Resultant  matrix  of  eigenvectors.  Stored  columnwise* 
in  same  seouence  as  eigenvalues. 


R(N) 
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NDELQ 

PULSE 


TDIEF 


/MC0H4/  1*2  HCOH.INC 

Nuaber  of  non-zero  elements  of  troposcatter  power  per 
unit  delay  profiles  Q<NDELG>1>. 

/RZ/  1*2  RZ.INC 

Switch  controllina  MD-918  pulse  shape  after 

transaitter-receiver  filterins. 

PULSE  =  0  Trianale 

=  1  OGPSK  latched  filter 

=  2  Sine  pulse*  bandwidth  eaual  to  1 

=5  RF  filtering  included 
Set  to  0  if  IBU  =  0  or  KGAIN  >  1. 

Set  to  5  if  IBU  >  0  and  KGAIN  =  1. 

/HC0H4/  R*4  HCOH.INC 

Noraalized  relative  delay  between  lower  and  upper 

beaa. 
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9,7  DINT 

Subprograa  naae.  Subroutine  DINT 

Purpose*  Integrates  CAC  =  G(X-RK)G(X-BL )Q( TO-X)  over  (XL»XH)  where! 
G<X)  =  Fixed  filter  response* 

Q(X)  =  Hultipath  profile. 


Calling  seouence! 

CALL  DINT  ( S IGHA » 8K  *  BL » Y  *  TO » Q  » PT  YF’E  *  JQ))H ) 
Contained  in  Module!  DINT 


Called  by! 

HDTS 

CAKL 

Calls! 

CAC 

Input  arsuaents! 

SIGHA 

R*4 

Noraalized  delay  spread  of  scatter  component. 

8K 

R*4 

Tap  saapling  tiae  relative  to  AFE  center  tap. 

RL 

R*4 

Saae  as  BK, 

TO 

R*4 

Noraalized  saapling  tiae  for  center  tap  relative  to 
centroid  of  power  per  unit  delay  profile. 

Q 

R*4 

Power  per  unit  delay  profile  or  correlation  per  unit 
delay  profile. 

PTYPE 

1*2 

Indicates  whether  path  is  aixed  scatter/dif fraction 
(PTYPE  =  t)  or  pure  scatter  path  (PTYPE  =  0). 

JQDH 

1*2 

Index  in  power  per  unit  delay  profile  corresponding 
to  delay  bin  of  the  specular  (diffraction)  coaponent 

Output  arguaents! 

Y 

R*4 

Result  of  integration. 

Global  variables  input  froa  coaaon! 


DELPBZ  /RZ1/  R*4 

Resolution  of  a  delay  cell  in  seconds.  Saae  as  DELPB 

in  /PDATA/. 

DRATE  /HC0H4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Oefault  is  6.AF.A. 

ICORR  /MC0N2/  1*2  HCOH.INC 

Hultipath  profile  correlation  indicator.  Default 
is  2. 

0  =  Profile  of  the  fora  X  *  exp(-A*X)  —  used  for 
debugging 

1  =  Coaputed  aultipath  profile!  no  beaa  correlation 

2  =  Coaputed  aultipath  profile!  beaa  correlation. 

JQ2H  /HC0H4/  1*2  HCOH.INC 


Pointer  to  centroid  of  lower  beaa  troposcatter  signal 
power  per  unit  delay  profile. 

/RZ/  1*2  RZ.INC 

Integer  ratio  of  bandwidth  to  data  rate. 


14 


KGAIN 
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9.6  CHANGE 

Subprograa  naaei  Subroutine  CHAN6E 

Purpose?  Matrix  utility  operations  defined  by  flag  KIND. 


Calling  sequence? 

CALL  CHANGE  (ARRAY* VECTOR. NACT*NDIM. KIND) 
Contained  in  Module?  HATOPS 
Called  by*  HBTS*  SQTMAT 
Calls?  ERROR 

Input  arguments? 


ARRAY(NACT  * 

NACT)  R*4 

Two-diaensional  array  (aatrix).  No 

liait 

set 

on  size. 

VECTOR(l) 

R*4 

One-diaensional  array  (vector).  No 
size  set. 

liait 

to 

NACT 

1*2 

Actual  physical  diaensions  of  ARRAY 
calling  progrna.  No  aaxiaua  set. 

in 

NDIH 

1*2 

Nuaber  of  rows  and  coluans  in  input 

(output) 

aatrix  ARRAY. 

KIND 

1*2 

Input  flag? 

1  =  Pack  syaaetric  Matrix*  ARRAY*  into  VECTOR 

by  columns  through  each  diagonal  element. 

2  =  Copy  VECTOR  into  doubly-subscripted  ARRAY. 

3  *  Copy  only  diagonal  elements  froa  VECTOR 

into  ARRAY  and  zero  off-diagonal  elements 
(as  in  a  unitary  Matrix). 

Output  arguaents? 

ARRAY (NACT* NACT)  R*4  Tuo-diaensional  array  (aatrix).  No  liait  set 

on  size. 

RM  One-diaensional  array  (vector).  No  liait  to 
size  set. 


VECTOR(l) 
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9.5  CAKL 

Subprodraa  naaet  Subroutine  CAKL 

Purpose!  Coapute  scatter  sidnal  covariance  aatrix  C  <  K  *  I. )  where! 

K.L  =  ( -KK» -KK41 » -KK+2» . . . »+KK) . 

Nuaber  of  rows  and  coluans  (AFE  taps)  is  therefore  eaual  to  2*KK+1. 
Covariance  aatrix  is  defined  as  integral  of! 

G  <X-KT)  *  G  <X-LTF(.j-i)*DIFF>  *  G(TO-X) 
i  J 

where  G  and  G  are  the  iapulse  response  of  the  cascade  of  transaitter 
i  J 

and  receiver  filters  for  diversity  ports  i  and  j.  Q(X)  is  the  power 
per  unit  delay  function  of  the  scatter  coaponent  if  i  =  J  and  the 
correlation  per  unit  delay  profile  otherwise. 

Calling  seouence! 

CALL  CAKL  ( KK » SIGMA* C fT0»DIFF»G» PTYPE *JQDH) 


Contained  in  aodule!  DINT 


Called  by. 

MATCO 

Calls! 

DINT 

Input  arduaents! 

KK 

1*2 

Nuaber  of  taps  on  either  side  of  the  center  tap  of 
the  AFE. 

SIGMA 

R*4 

Noraalized  delay  spread  of  scatter  coaponent. 

TO 

R*4 

Noraalized  saaplind  tiae  relative  to  centroid  of 
scatter  coaponent  power  per  unit  delay  profile. 

TO  >  0  increases  future  ISI. 

DIFF 

R*4 

Delay  coapensation  for  andle  diversity  swstens. 

G 

R*4 

Power  per  unit  delay  profile  or  correlation  per  unit 
delay  profile. 

PTYPE 

1*2 

Indicates  whether  path  is  aixed  scatter/diffraction 
(PTYPE  =  1)  or  pure  scatter  path  (PTYPE  =  0), 

JQDM 

1*2 

Index  in  power  per  unit  delay  profile  correspondind 
to  delay  bin  of  the  specular  (diffraction)  coaponent 

Output  arduaents! 

C 

R*4 

Scatter  sidnal  covariance  aatrix  for  AFE  taps. 

Global  variables  input  froa  coaaon! 

TAPW  /MC0M4/  R*4  HCOM.INC 

Noraalized  tapwidth  for  HD-918.  Default  is  .5. 
Rande  is  0.25  through  1.0 
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9.15  MDTS 

Subprogram  name!  Subroutine  HOTS 

Purpose!  Computes  HD-918  mortem  performance  assuming  LISI  symbols  of 
intersymbol  interference  (ISI).  Performance  under  mixed  scatter/ 
diffraction  propagation  conditions  also  includes  the  ISI  due  to  the 
4th  and  5th  past  symbols.  Assumes  ISI  is  Gaussian. 

Reference!  P.  Honsen  'Theoretical  and  measured  performance  of  a  OFE 
modem  on  a  fading  multipath  channel.' »  IEEE  Transactions  on 
Communications*  Vol.  COH-25*  No.  10*  October*  1977*  pp.  1144-1153. 
See  also  'Link  analysis  plan*.  Interim  technical  report  no. 
CSA-76-8085-3*  October  1978*  Contract  *DAAB07-7A-C-8085 . 

Calling  seouence! 

CALL  HDTS  (TAU22.TAU23.EL0SS.RH0* ASNR.ADSNR.Q.DUPOW* JPON* 

JBM* BUT *BMR* ASEP.CORFAC, BOUT *FOUT*FJSEP,PTYPE*TEMPA*JODM) 


Contained  in 

module! 

MDTS 

Called  by! 

TROPO 

Calls! 

BERCAL 

BOTAC  CHANGE  DINT  EIGEN  ELHES  ERROR  HOR 

HATA 

MATCO  MINU  ORDER  PROUT  SASEO  SIGIN  SINT 

SQTHAT 

XNOR 

Input  arguments! 

T.MJ22 

R*8 

Delay  spread  on  lower  beam  in  nsec. 

TAU23 

R*8 

Delay  spread  on  upper  beam  in  nsec. 

ELOSS 

R«8 

Upper  beam  souint  loss  for  scatter  component  in  dB  or 
sidelobe  loss  for  interference. 

RHO 

R*8 

Correlation  between  lower  and  upper  beam  long-term 
variability  of  scatter  component. 

ASNR 

R*4 

Median  and/or  yearly  average  value  of  scatter  path 

SNR  in  dB. 

ADSNR 

R*4 

Yearly  average  value  of  diffraction  path  SNR  in  dB. 

0(100,7) 

i  R*4 

Multipath  delay/correlation  profile  array. 

DUPOU 

R*4 

Ratio  of  diffraction  component  on  upper  beam  to 
diffraction  component  on  lower  beam. 

JPON 

R*8 

Interference  signal  power  density  in  dBm/Hz. 

JBU 

R*8 

Interfering  signal  bandwidth  in  Hz. 

BUT 

R*4 

Transmit  antenna  beamwidth  in  degrees. 

BUR 

R*4 

Receive  antenna  beamwidth  in  degrees. 

ASEP 

R*4 

Receiver  antenna  separation  in  meters. 

CORF AC 

R>4 

Correction  factor  computed  by  LTCORR.  CORFAC  is  used 
in  subroutine  BERCAL  to  scale  STSNR  multipl icatively 
when  angle  diversity  is  used. 

FJSEP 

RM 

Freouency  separation  between  desired  signal  and 
interference  signal  in  Hertz. 
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PTYPE  1*2  Variable  which  indicates  whether  propagation 

mechanism  is  pure  troposcatter  (0  or  10)  or  mixed 
troposcatter-dif fraction  (1  or  11). 

TEMPA(7)  R*4  Average  relative  delay  of  scatter  component. 

JQDM  1*2  Index  in  the  multipath  profile  corresponding  to 

the  delay  of  the  specular  component. 

Output  arguments! 

B0UT<3»4)  R*4  Yearly  average  outage  probability  for  each 

bit  error  rate  threshold  specified  and  2S/2F 
and  2S  diversity  configurations. 

F0Uf(3f4)  R*4  Yearly  average  fade  outage  per  call  minute  for 

each  bit  error  rate  threshold  specified  and 
2S/2F  and  2S  diversity  conf igurations . 

Global  variables  input  fro*  common! 

CODE  /MC0H4/  L*4  HCOH.INC 

Flag  for  coding. 

DEL  /SUMP/  R*4  CURVE. INC 

Diffraction  path  delay  relative  to  a  straight  line 
path  in  seconds. 

DIVTYP  /HC0H2/  X*2  HCOH.INC 

Diversity  configuration  indicator.  Default  is  0. 

0*2  receive  antennas)  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna!  2A  2F  2F/2A 

2=2  transmit? 

2  receive  antennas!  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  freouency  A  =  Angle  P  =  Polarization 

DRATE  /MC0M4/  R*4  HCOH.INC 

Data  rate  in  bits/second.  Default  is  6.&E6. 

DSTSNR  /SUMP/  R*4  CURVE. INC 

Standard  deviation  of  diffracted  signal  long-term  SNR 
distribution  in  dB. 

ELANG(IO)  /HC0H4/  R*4  HCOH.INC 

Interferer  elevation  angles  in  degrees.  Default  is  0. 

IBM  /HC0H2/  1*2  HCOH.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  =  No  RF  filtering 

1  =  Filter  determined  from  99X  bandwidth  constraint 

2  =  Filter  chosen  to  meet  FCC  Mask.  (FCC-19311) 

3  =  Filters  are  user  specified 

IC0RR  /HC0H2/  1*2  HCOH.INC 

Multipath  profile  correlation  indicator.  Default 
is  2. 

0  =  Profile  of  the  form  X  *  exp(-A*X)  —  used  for 
debugging 

1  =  Computed  multipath  profile!  no  beam  correlation 
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KGAIN 

LERR 

LOUT 

HANG 

NANG 

NERT 


STSNR 

XANG(IO) 

Global  variables 
AF'QW 

IFILE 

LANG 

NIP 

PCON 

PEAKAV 

TDIFF 


2  =  Computed  eultipath  profile!  beam  correlation. 
/RZ/  1*2  RZ. INC 

Integer  ratio  of  bandwidth  to  data'rate. 

/LUNS/  1*2  LUNS.INC 

Error  output  unit. 

/LUNS/  1*2  LUNS.INC 

FOR002.DAT  output  unit  number. 

/HC0M2/  1*2  HCOM.INC 

Number  of  values  of  interferer  azimuth/el evation  pairs 
<JANG)  for  which  outage  calculations  are  to  be  Made. 
Default  is  1. 

/RI2/  1*2  R I 2. INC 

NANG  is  1  if  there  is  angle  diversity  (default). 

/HC0H2/  1*2  HOOH.INC 

Bit  error  rate  threshold  indicator  for  yearly  fade 
outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  =  For  10**(-3>  only 

2  =  For  10**<-4)  only 

3  =  For  10**<-5)  only 

/SUHP/  R*4  SUHP.INC 

Standard  deviation  of  troposratter  signal  long-term 
SNR  distribution  in  dB, 

/HC0H4/  R*4  HCOH.INC 

Interferer  aziMuth  angles  in  degrees.  Default  is  0. 

output  to  COMMOn. 

/HC0H4/  R*4  HCOH.INC 

Angle  diversity  souint  loss  as  a  ratio. 

/HC0H2/  1*2  HCOM.INC 

Pointer  to  Multipath  profile. 

/HC0H2/  1*2  HCOH.INC 

Pointer  to  data  array  elements  containing  interferer 
azimuth  and  elevation  angles. 

/RZ/  1*2 

Initialization  constant  for  numerical  eoualizer 
covariance  matrix  calculation. 

/RZ/  R*8  RZ .INC 

Normalization  factor  for  probability  integral. 

/RZ4/  R*4  RZ4.INC 

Peak-to-averase  loss  due  to  RF  filtering  in  dB. 

/MC0M4/  R*4  HCOH.INC 

Normalized  relative  delay  between  lower  and  upper 

beam. 


HD-918  HODEH  CALCULATIONS 
Subroutine  HINV 


Pase  9-29 


9*16  MINV 

Subprogram  name:  Subroutine  MINV 

Purpose*  IBM  SSP  Library  routine.  Matrix  inversion. 

Calling  sectuence! 

CALL  MINV  (CtNfDtNCtlCONtB) 

Contained  in  nodule'  HINV 

Called  by:  MOTS 

Callst  NONE 

Input  arguments: 


C(NC,NC) 

R*4 

Matrix  to  he  inverted.  Also  may  be  returned 
here.  No  limit  set  on  size. 

N 

1*2 

Matrix  order. 

NC 

1*2 

Size  of  matrix  C.  No  maximum  set. 

ICON 

1*2 

Control  flag. 

0  =  Invert  C  and  return  determinant  in  D. 
1  *  Return  determinant  in  0  and  leave  C 
as  is. 

3  =  On  output  for  determinant  =  0 

4  =  Ignore  determinant  =  0 

Output  arguments! 


C(NC,NC> 

R*4 

Matrix  to  be  inverted.  Also  may  be  returned 
here.  No  limit  set  on  size. 

D 

R*4 

Determinant  returned. 

Bill 

R*4 

Working  matrix. 
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9.17  ORDER 

Subprogram  name!  Subroutine  ORDER 

Purpose!  Store  largest  N  values  of  R(K)  in  V<K>  in  decreasing  size  and 

order.  For  K  <  I  <  N+l  V(I)  =  0.0. 

— >  NOTE!  Do  NOT  use  for  K  =  N  =  1  •!!! 

Calling  seouence! 

CALL  ORDER  (Kf RrVtN) 

Contained  in  module!  ORDER 

Called  by!  El  GO.  HDTS 

Calls!  ERROR 

Input  arguments! 

K  1*2  Dimension  of  arrays  R  and  V.  No  maximum  set. 

R(K)  R*8  Input  array. 

N  1*2  Number  of  values  to  return. 

Output  arguments! 

V(K)  R*8  Output  array. 

Global  variables  input  from  common! 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 
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9*18  PDFCON 

Suberograa  naaeS  Subroutine  PDFCON 

Purpose*  Calculate  coefficients  in  partial  fractions  expansion  of 

Laplace  transfora  F(S)  of  PDF  for  SNR*  froa  list  of  negatives  of  roots 
of  F<s).  On  return*  roots  are  in  descending  order.  Coefficients 
C(<N-1)*ID  4  I)  are  such  that  the  following  two  expansions  for  F(s) 
are  eauivalentt 

F(s)  =  <R( 1 )  /  <S  4  R(1)))**NDIV  *...*  (R(NR)  /  (S  4  R<NR> > )**NDIV 
and* 

F(s)  =  ...C<<N-1)*NDIV  4  I)  /  (S  4  R(N))*ND1V-I  4  i  ... 
for  N  =  1*2, ...NR*  I  =  1,2*. ..NDIV. 

Reference*  K.  Miller,  'Engineering  Matheaatics' »  Dover  Publications* 

1963*  pp.  214-215. 

Calling  seouence* 

CALL  PDFCON  <NR*R*NDIV,C) 

Contained  in  aodulel  BERCAL 

Called  by.*  BERCAL 

Calls*.  NONE 

Input  arguaents* 

NR  1*2  Nuaher  of  roots.  Diaension  of  vectors  R  and  C.  No 

aaxiaua  set  on  vector  sizes  but  see  NBIV  for 
liaitations  on  values. 

R(NR)  R*8  Arrau  of  NR  positive  nuabers*  which  are  the  negatives 

of  the  roots  of  F(s).  These  are  positive  nuabers.  On 
return,  they  are  ordered  in  descending  order. 

NDIV  1*2  Multiplicity  of  roots.  Hust  be  1*  2  or  4.  For 

NDIV  =  4*  NR  aust  be  1  or  3.  For  any  illegal 
coabination  of  NDIV  and  NR*  PDFCON  returns 
C(I>  =  0.D0  for  I  =  1  through  NR*NDIV  (  =  NO. 

Output  arguaents. 

C(NR*NDIV)  R*8  Output  array  into  which  PDFCON  puts  the  calculated 

coefficients.  Diaensioned  to  24*  therefore*  NR*NDIV 
aust  be  no  aore  than  24. 
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9,19  PROUT 

Subprogram  naae!  Subroutine  PROUT 

Purpose!  To  output  to  file  F0R002.DAT  yearly  average  outage  probability 
fade  outage  per  call  einute*  and  1000-bit  block  error  probability  of 
HD-918  node*  for  each  specified  PER  threshold  and  diversity 
configuration. 

Calling  seauence! 

CALL  PROUT  (JPOW*DIVTYP*NOUT»Nl*N2*SOUT*BOUT*FOUT*ABF*CI5AIN*  PTYPE ) 
Contained  in  aodule!  PROUT 
Called  by!  HDTS 
Calls*.  NONE 

Input  arguments! 

JPOW  R*8  Interference  power  density  in  dbe/Hz. 

DIVTYP  1*2  Diversity  configuration  indicator. 

NOUT  1*2  Total  nunber  of  short  ter®  calculations  performed. 

N1  1*2  Index  of  largest  BER  threshold  of  interest. 

N2  1*2  Index  of  saallest  BER  threshold  of  interest. 

SOUT  R*4  Norealization  for  averaging  of  short  tere  outage 

probabilities. 

B0UT(3*4)  R*4  Outage  probability  for  each  BER  threshold  and  diversity 
configuration  (see  table). 

F0UT(3*4)  R*4  Fade  outage  per  call  einute  for  each  BER  threshold  and 
diversity  configuration! 

I  ■  Index  for  BER  threshold 

J  *  Index  for  varying  diversity  types*  depending  on 
the  value  of  DIVTYP 

ABE<4>  R*4  Average  1000-bit  block  error  probability  for  each 
diversity  configuration. 

CGAIN  R*4  Coding  Sains  for  each  BER  threshold. 

PTYPE  1*2  Indicates  whether  pure  scatter  (=  0)  or  eixed  scatter/ 

diffraction  path  <=  1). 

Output  arguments! 

B0UT(3*4)  R*4  Outage  probability  for  each  BER  threshold  and  diversity 
configuration  (see  table). 

F0UT(3*4)  R*4  Fade  outage  per  call  einute  for  each  BER  threshold  and 
diversity  configuration! 

I  =  Index  for  BER  threshold 

J  =  Index  for  varying  diversity  types*  depending  on 
the  value  of  DIVTYP 

ABE(4)  R*4  Average  1000-bit  block  error  probability  for  each 
diversity  configuration. 
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Global  variables 
BER( 3) 

LOUT 

HOIST 

NRAP 
Pf ACT  <  3) 


Global  variables 
ABEL(4) 

B0UTL(3*4) 

FOUTL  (3*4) 


input  from  common! 

/ERAD/  R*4  ERAD.INC 

Bit  error  rate  thresholds  of  interest.  Set  to  lE-3» 

1 E — 4  and  1E-S  in  data  statement. 

/LUNS/  1*2  LUNS.INC 

F0R0O2.DAT  output  unit  number. 

/ERAD/  1*2  ERAD.INC 

Hultipath  distribution  indicator. 

0  *  Only  median  multipath  spread  used(default) 
1  *  Hultipath  distribution  used.  (Option  not 
currently  available.) 

/ERAD/  1*2  ERAD.INC 

ERFAC  indicator  and  loop  counter.  Default  is  1. 

/ERAD/  R*4  ERAD.INC 

Cumulative  probability  distribution  for  effective 

earth  radius  factor. 

For  NRAD  =  1  PFACT  =  0.89 

=2  =0.1 

=3  =  0.01 


output  to  common! 

/ERAD/  R*4  ERAD.INC 

Cumulative  block  error  probability  for  each  diversity 
configuration  as  specified  by  DIVTYP  (averaged  over 
multipath  distribution*  if  any), 

/ERAD/  R*4  ERAD.INC 

Cumulative  outage  probability  for  each  diversity 
configuration  and  error  rate  threshold  (averaged 
over  multipath  distribution*  if  any). 

/ERAD/  R*4  ERAD.INC 

Cumulative  fade  outage  per  call  minute  for  each 
diversity  configuration  and  error  rate  threshold 
(averaged  over  multipath  distribution*  if  any). 
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9*20  PSINE 

Subprograa  naaet  Function  PSINE 

Purpose?  Calculates  the  product  sin<»01  t  XJ)  t  sin(.<)l  *  1)1  N). 

Calling  seouence* 

PSINE  (XJ#DIN) 

Contained  in  aodule?  SINT 

Called  by?  SINT 

Calls?  NONE 

Input  arguaents! 

XJ  R*8  100  tiaes  the  arguaent  of  the  sine  function. 

DIN  R*8  Difference  between  the  arSuaents  of  the  two  sine 

f unc lions . 


Output  arguaents 
PSINE  R*4 


The  product  sin(.01  *  XJ)  *  sin(.01  *  DIN) 


MODEM  CALCULATIONS 
on  PURS PC 


Page  9-35 


9.21  PURSPC 

Subprograa  naae*.  Function  PURSPC 

Purpose*  Power  spectrua  at  F  for  cascade  of  reeeiver-interferer 
filters* 


Call ins  seouence* 
PURSPC  <F ) 


Contained  in  Module: 

Called  by?  RJCFCN 

Calls?  TPSPEC. 

Input  arguments: 

F  f:*4 

Output  arguaentsi 
PURSPC  R*4 


BOTAC 

TPSPJ 

Noraalized  freauency. 

Power  spectrua  at  F  for  cascade  of  reeeiver-interferer 
filters. 


Global  variables  input  froa  coaaon? 

FCRX  /BUTPAR/  R*4  BUTPAR.INC 

Noraalized  3dB  cut-off  freauency  of  receiver  filter. 

FJSEPN  /JAMPAR/  R*4  JAMPAR.INC 

Noraalized  freauency  separation  between  the 
interference  signal  and  the  desired  signal. 

IFILRX  /BUTPAR/  1*2  BUTPAR.INC 

Receiver  filter  indicator. 

0  =  MD-918  receiver  filter.  Also  aeans 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  iapulse  response  filter  of 
duration  eaual  to  svabol  duration. 

1  =  (not  allowed) 

2  *  AN/TRC-170  receiver  filter.  Also  aeans 

filter  is  a  Butterworth. 

NPOLRX  /BUTPAR/  R*4  BUTPAR.INC 

Nuaber  of  poles  in  the  receive  Butterworth  filter. 
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9.22  RJCFCN 

Subprogram  name!  Function  RJCFCN 

Purpose*  Calculate  recei ver-interf erer  correlation  function  by  direct 

Fourier  transform.  PWRSUM  is  calculated  as  base  value  for  FJSEPN  =  0,0 
Numerically  integrate  product  of  power  spectrum*  PWRSPC(FREQ) *  and 
C0S( TWOPI  *  FREQ  *  TARG)  over  freouency  interval  E0.0*  JO.OtFCRXJ. 

Calling  seouence! 

RJCFCN  (TARG* INIT ) 

Contained  in  module!  B0TAC 

Called  ba,  BOTAC 

Calls!  PMRSPC*  TPSPEC 

Input  arguments! 

TARG  R*4  Normalized  time  argument, 

INIT  1*2  Flag  to  perform  initializations  and  to  calculate 

normalization  constant*  PWRSUM*  during  first 
function  call  to  RJCFCN  for  each  interferer  angle. 

Output  arguments! 

RJCFCN  R*4  Receiver-interferer  correlation  function, 

INIT  1*2  Flag  to  perform  initializations  and  to  calculate 

normalization  constant*  PWRSUM*  during  first 
function  call  to  RJCFCN  for  each  interferer  angle. 

Global  variables  input  from  common! 

FCRX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouency  of  receiver  filter, 
TWOPI  /CONSTA/  R*4  CONSTANTS. INC 

2  X  Pi  =  6.283185307. 

Global  variables  output  to  common! 

FJSEPN  /JAMPAR/  R*4  JAMPAR.INC 

Normalized  freouency  separation  between  the 
interference  signal  and  the  desired  signal. 
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9*23  SASEQ 

Subprogram  name:  Subroutine  SASEQ 

Purpose!  To  set  the  chip  seouence  ASEQ  as  a  function  of  the  number  of 
chips  per  thermal  bit  KGAIN. 

Calling  seouence: 

CALL  SASEQ  ( ASEQ) 

Contained  in  module:  SASEQ 

Called  bu:  NDTS  TRCIN 

Calls:  NONE 

Input  arguments: 

NONE 

Output  arguments: 

ASEQ(30)  1*2  Chip  seouence  for  bandwidth  spreading. 

Global  variables  input  from  common: 

KGAIN  /RZ/  1*2  RZ.1NC 

Integer  ratio  of  bandwidth  to  data  rate. 

LOUT  /LUNS/  1*2  LUNS.INC 

FOR002.DAT  output  unit  number. 
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9.24  SIGIN 

Subprogram  name!  Subroutine  SIGIN 

Purpose?  Set  pulse  shape  switch  PULSE*  number  of  taps  K*  lower  end 
upper  deleu  spreed  retios  SIGMA  end  SI6M1*  number  of  future  ISI 
considered  LISI*  end  the  proportionality  constant  SPOHR. 

Calling  seouence? 

CALL  SIGIN  <K*  SIGMA* SIGM1 *  TAU22*  TAU23*SP0WR) 

Contained  in  module?  SIGIN 
Called  by?  MDTS 
Calls?  NONE 

Input  arguments? 

TAU22  R*8  Delay  spread  in  lower  beam  in  nanoseconds. 

TAU23  R*8  Delay  spread  in  upper  bean  in  nanoseconds. 

Output  arguments? 

K  1*2  Number  of  taps  in  either  side  of  AFE  center  tap. 

SIGMA  RM  Ratio  of  lower  beam  delay  spread  to  symbol  duration. 

SI6M1  RM  Ratio  of  upper  beam  delay  spread  to  symbol  duration. 

SPOWR  RM  Proportionality  constant  used  in  ISI  calculation. 

Global  variables  input  from  common! 

DRATE  /MC0M4/  R*4  MCOM.INC 

Data  rate  in  bits/second.  Default  is  6.6E6. 

IBM  /MC0H2/  1*2  MCOM.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  =  No  RF  filtering 

1  =  Filter  determined  from  99%  bandwidth  constraint 

2  =  Filter  chosen  to  meet  FCC  Mask.  (FCC-19311) 

3  =  Filters  are  user  specified 

ICORR  /MC0M2/  1*2  MCOM.INC 

Multipath  profile  correlation  indicator.  Default 
is  2. 

0  -  Profile  of  the  form  X  *  exp(-A*X)  —  used  for 
debugging 

1  =  Computed  multipath  profile*  no  beam  correlation 

2  =  Computed  multipath  profile*  beam  correlation. 

KGAIN  /RZ/  1*2  RZ .INC 

Integer  ratio  of  bandwidth  to  data  rate. 

LERR  /LUNS/  1*2  LUNS.INC 

Error  output  unit. 

NTAP  /MC0M2/  1*2  MCOM.INC 

Number  of  adaptive  forward  eoualizer  taps  (AFE)  in 
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HD-918  Mode**  Set  to  3  in  INDATA. 


Global  variables  output  to  common* 

LISI  /HC0H2/  1*2  MCOH.INC 

Number  of  future  Intersymbol  Interference  (ISI) 
contributors  considered  in  HD-918  performance 
calculation.  Defa'jlt  is  2. 

PULSE  /RZ/  1*2  RZ.INC 

Switch  controlling  HD-918  pulse  shape  after 
transmitter-receiver  filtering. 

PULSE  =  0  Triangle 

=  1  OQPSK  matched  filter 

=  2  Sine  pulse>  bandwidth  eoual 

=5  RF  filtering  included 

Set  to  0  if  I  DU  =  0  or  KGAIN  >  1. 

Set  to  5  if  IBU  >  0  and  KGAIN  =  1. 

TAPU  /HC0H4/  R*4  HCOH.INC 

Normalized  tapwidth  for  HD-918.  Default  is  ,5. 
Range  is  0.25  through  1.0 


to 


1 
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9.25  SINC 

SubproSraa  naae:  Function  SINC 

Purpose:  SINC  =  SIN<PI*X>  /  (PItX).  For  X  =  0  or 

ABS  (Numerator  -  Denominator )  <  1.0K-6  SINC:  «  1. 

Call ins  seouence! 

SINC  (X) 

Contained  in  module}  SINC 
Called  but  CAC.  FILSIX*  TSINC 
Calls:  NONE 

Input  arguments: 

X  R*4  Argument  of  SINC  function. 

Output  arguments: 

SINC  R*4  Value  of  SIN(PItX)  /  PItX. 

Global  variables  input  from  common: 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592454. 
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9*26  SGTHAT 

Subprodrae  naee!  Subroutine  SQTMAT 

Purpose*  Subroutine  to  take  souare  root  of  a  sueeetric.  positive- 
definite  eatrix  D  of  order  <  *  7  by  computing* 

SORT < D )  -  (EHODAI.)  *  SORT  (UNI TRY)  *  (TRANSP(EHODAL)  > . 

Where  EMODAL  is  the  eatrix  containing  the  eigenvectors  of  D  (the 
'eodal*  eatrix)  and  UNITRY  is  the  eatrix  containing  the  eigenvalues 
of  D  in  its  diagonal  (the  'unitary*  eatrix). 

Calling  seouencel 

CALL  SQTMAT  (D.SQRTD.K1) 

Contained  in  eodule*  MATOPS 

Called  bsl  MDTS 

Calls*.  CHANGE.  EIGEN.  ERROR.  MATA 

Input  ardueents* 


D(Kl.Kl) 

R*4 

Original  eatrix*  real,  sueeetric.  undisturbed. 

K1 

1*2 

Dieensioned  as  7  X  7. 

Dieensions  of  eatrix  D.  Maxieue  is  7. 

Output  ardueents* 

SQRTD 

R*4 

Souare  root  eatrix. 
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9.27  TPSPEC 

Subprograa  naae!  Function  TPSPEC 

Purpose!  Power  spectrua  at  F  for  Butterworth  *  IFTLT-type  filter. 

Calling  seouence! 

TPSPEC  (F»NPOLE»FCUT * IFILT) 

Contained  in  aodule!  BOTAC 

Called  bu!  PWRSPC*  TPSPJ 


Calls!  NONE 


Input  arguments! 

F 

R*4 

Noraalized  freouenca. 

NPOLE 

R*4 

Nueber  of  poles  of  Butterworth  filter. 

FCUT 

R*4 

Noraalized  3-dB  cut-off  freouenca  of  Butterworth 
filter. 

IFILT 

1*2 

Switch  that  indicates  whether  rectangular  iapulso 
response  filter  is  cascaded  with  Butterworth  filter 
<=  0»1)  or  not  (=  2). 

Output  arguments! 

TPSPEC 

R*4 

Power  spectrua  for  Butterworth  *  IFILT-tape  filter. 

Global  variables  input  froe  coaaon! 

PI  /CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 
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9*28  TPSPJ 

Subprogram  name*  Function  TPSPJ 

Purpose*  Power  spectrug  of  interferer  at  freouenca  F. 

Calling  seouence* 

TPSPJ  (F) 

Contained  in  module*  60TAC 

Called  bai  PURSPC 

Calls*.  TPSPEC 

Input  arguments* 

F  R*4  Normalized  freouenca. 

Output  arguments* 

TPSPJ  R*4  Power  spectrum  of  interferer  at  freouenca  F. 

Global  variables  input  from  common* 

FCJ  /JAMPAR/  R*4  JAMPAR. INC 

Normalized  3dB  cut-off  freouenca  of  GPSK  interference 
filter. 

FCTX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouenca  of  transmitter 
filter. 

FMI  /JAMPAR/  R*4  JAMPAR. INC 

Modulation  index  for  FDH/FM  interference. 

IFILTX  /BUTPAR/  1*2  BUTPAR.INC 

Transmitter  filter  indicator. 

0  =  HD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  sambol  duration. 

1  *  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eoual  to  half  sambol  duration. 

2  *  (not  allowed) 

MODSG  /JAMPAR/  1*2  JAMPAR. INC 

Interference  signal  modulation  format.  Default  is  1. 

0  =  Analog  FDM  /  FM 
1  =  Digital  GPSK 

NPOLJ  /JAMPAR/  1*2  JAMPAR. INC 

Number  of  poles  in  the  GPSK  interference  filter. 

NPOLTX  /BUTPAR/  1*2  BUTPAR.INC 

Number  of  poles  in  the  transmit  Butterworth  filter. 

PI  /CONSTA/  R*4  CONSTANTS. INC 
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UFH 


Constant  Pi  =  3.141592654. 

/JAHPAR/  R*4  JAHPAR.INC 

Noraalization  constant  for  FDH/FH  interference. 
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9.29  TSINC 

Subproaraa  naae!  Function  TSINC 

Purpose*  TSINC  =  B  ♦  convolution  of  trisnaular  iarulse  response  filter 
and  wavefora  with  iapulse  response  sinc(P*X)  evaluated  at  the  point  X* 

Callina  seauence* 

TSINC  <B»X> 


Contained  in  aodulei  BOTAC 
Called  b«:  BOTAC >  JAHCOH 
Calls!  SINC 


Input  arSuaents* 

B  R*8 

X  R*8 

Output  arauaents* 
TSINC  R*4 


Noraalized  bandwidth  of  SINC  wavefora* 
Noraalized  tiae  arsuaent* 

Convolution* 
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9.30  XNOR 

Subprogram  name!  Function  XNOR 

Purpose}  Gaussian  PDF  with  mean  SPA  and  standard  deviation  SPS.  Note* 
the  arduaents  are  single  precision  though  the  output  is  double. 

Calling  sequence! 

XNOR  <SPX*SPA*SPS> 

Contained  in  Module!  XNOR 


Called  by! 

BERCAL* 

MDTS*  IRC 

Calls! 

NONE 

Input  argueents: 

SPX 

R*4 

Value  of  Gaussian  random  variable  at  which  PDF  is  to 
be  calculated. 

SPA 

R*4 

Hean  of  distribution. 

SPS 

R*4 

Standard  deviation  of  distribution* 

Output  arguments 
XNOR  R*8 


Gaussian  PDF 
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AN/TRC-170  MODEM  CALCULATIONS 


This  section  describes  the  AN/TRC-170-DAR  aodea  perforaance  calculation 
routines' 


User's  Hanual 

Naae  Description  section 


AVG  Short-tera  ABER  and  outage 

probabilities . .  ,  .  2.9.5 

EIGV  Implicit  diversity  eigenvalues  2.9.4 
INTERD  Linear  interpolation  .....  NA 
P2INT  Correlation  of  response  «ith 

itself . .  .  2.9.4 

PAVERG  Conditional  aberage  bit  error 

probability  . . 2.9.5 

PDF  PDF  of  detection  SNR  .....  2.9.4 

PDFCOE  PDF  coefficients  .......  2.9,4 

PDFSUH  PDF  integration  of  SNR  .  .  .  .  NA 
POUTAG  Conditional  outage  probability  2.9.5 

PROFIL  Power/delay  profile  .  2.9.4 

TIMAVG  Short-tera  ABER  and  outage 

probability  .........  .  2.9.5 

TIHEQL  Sampling  tiaes . .  »  2.9.3 

TINPAR  Steady  state  saapling  tiae  ,  »  NA 

TRC  Main  TRC  routine  2.9. 1»  2.9,2 

TRCIN  TRC  paraaeters . 2.9.i>  2,9.4 

TXPULS  Tx-Rx  iapulse  response  ....  2.9.4 
VARW  ISI  variance . 2.9.5 


The  aain  routine  for  this  section  is  TRC.  The  TRC  aodea  perforaance 
calculations  are  described  in  section  2.9  of  the  User's  Manual. 

Figure  2-6  is  a  top  level  flowchart  for  AN/TRC-170-DAR  aodea  perforaance 
calculations  at  a  functional  level.  In  aost  cases  the  blocks  correspond  to  one 
or  aore  subrrograas.  The  test  blocks  (diaaonds)  correspond  to  logical  branches 
which  are  decided  by  the  user's  choices  of  input  data. 
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NOTE 

In  eost  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eauations  as  well  as  the  theory  behind  the*.  NA  denotes  routines  that 
are  programing  utilities  such  as  finding  indices*  setting  pointers* 
etc* 


COMPUTE  YEARLY  AVERAGE 
BER  AND  OUTAGE  PROBABILITY 


Figure  2-6  Flow  Chart  for  AN/TRC-170-DAR  Modem  Performance  Calculations 
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10.1  AVG 

Subprograa  naae?  Subroutine  AUG 

Purpose?  To  calculate  short-tera  average  bit  error  rate  and  short-tera 
outage  probability  of  AN/TRC-l'/O  Siven  the  short  ter*  average  SNR  per 
bit  by  integrating  over  the  statistics  of  the  instantaneous  detection 
SNR  of  the  aodea. 


Calling  seouence? 

CALL  AVG  ( YRUTINf  Y.  IERR) 

Contained  in  Module!  TRC 

Called  by?  TRC 

Calls?  PDF »  YRUTIN 

Input  arsuaents? 

YRUTIN  R*4  Function  naae.  May  be  PAVERG  or  PDUTAG. 


Output  arguaents! 
Y  R*4 

IERR  1*2 


Twice  the  average  bit  error  rate  if  the  function 
reauested  is  PAVERG  and  outage  probability  if  the 
function  reauested  is  POUTAG* 

Error  flag. 


Global  variables  input  froa  comaon? 

COEFF  /ANSWER/  R*8  ANSWER. INC 

Partial  fraction  expansion  coefficients  for 
calculation  of  AN/TRC-t/O  outage  probability. 

NDIVS  /SYSPAR/  1*2  SYSPAR.INC 

Nuaber  of  explicit  diversity  channels  for  AN/TRC-170. 
Eoual  to  4  for  2S/2F  and  2  for  2S  or  2F. 

NEIGEN  /ANSWER/  1*2  ANSWER. INC 

Nuaber  of  iaplicit  diversity  eigenvalues  (stored  in 
array  VEIGV)  used  in  calculation  of  AN/TRC-170 
perforaance. 

VEIGV<20>  /ANSWER/  R*B  ANSWER. INC 

Iaplicit  diversity  eigenvalue?  for  AN/TRC-170. 

X3INCR  /NUMPAR/  R*4  NUMPAR.INC 

Step  increaent  for  nuaerical  integration. 
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10.2  El GO 

Subprogram  name!  Subroutine  E I  GO 

Purpose*.  Calculates  the  implicit  diversity  eigenvalues  of  the 

AN/TRC-170. 

Calling  seouence! 

CALL  EIGV  (X2INCR*  NV,  EIGHIN.  I ERR) 

Contained  in  Module*.  TRC 

Called  by*.  TRC 

Calls!  ELHES.  HQR .  ORDER.  PROFIL.  TXPUt.S 

Input  arguments! 

X21NCR  R*4  Step  increment  for  numerical  integration. 

NO  1*2  Number  of  eigenvalues  to  be  computed. 

EIGHIN  R*4  Ratio  of  smallest  to  largest  eigenvalue  of  interest. 

Output  arguments! 

IERR  1*2  Error  flag. 

Global  variables  input  fro*  common! 

I PROF L  /SYSPAR/  1*2  SYSPAR.INC 

Parameter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  form  X  exp  (~A*X)  is  to 
be  used  ( IPROFL  =  0)  or  not.  Set  to  Zuro  in  fRCIN. 

SIGHA  /SYSPAR/  R*4  SYSPAR.INC 

Half  the  RHS  lower  beam  delay  spread  normalized 
relative  to  the  symbol  duration. 

TO  /SYSPAR/  R*4  SYSPAR.INC 

Normalized  sampling  time  for  lower  beam. 

Global  variables  output  to  common! 

DIVIHP  /ANSWER/  R*4  ANSWER. INC 

Ratio  of  souare  of  mean  signal  energy  to  variance  for 
AN/TRC-170. 

ENHEAN  /ANSWER/  R*4  ANSWER. INC 

Average  received  energy. 

ENVAR  /ANSWER/  R*4  ANSWER. INC 

Variance  of  received  energy. 

NEIGEN  /ANSWER/  1*2  ANSWER. INC 

Number  of  implicit  diversity  eigenvalues  (stored  in 
array  VEIGV)  used  in  calculation  of  AN/TRC-170 
performance . 

VEIGV(20)  /ANSWER/  R*8  ANSWER. INC 

Implicit  diversity  eigenvalues  for  AN/TRC-170. 
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10.14  TRC 

Subprodraa  naae!  Subroutine  TRC 

Purpose!  To  calculate  the  short-tera  PER  and  outage  probability  of  the 
AN/TRC-170  or  DAR  aodea  as  a  function  of  SNR  for  the  specified 
diversity  configuration  and  PER  threshold  and  the  yearly  ootade 
probability  given  the  yearly  aedian  of  the  troeoscatter  signal  SNR 
and  its  standard  deviation. 

Calling  seouence! 

CALL  TRC  (TRCTTPf IBWjPYEAR) 

Contained  in  aodule!  TRC 

Called  by!  TRCIN 

Calls!  AVG.  EIGV,  PAVERG.  PDFCOE.  PDFSUH.  POUTAG*  I1MAVG.  TIMFQl » 

TIMPARr  UARU>  XNOR 

Input  arguaents! 

TRCTYP  R*4  TRC- 1 70  aodea  type  indicator! 

0  =  1  f reauenoy  DAR  modem 
1  =  2  freauenc-y  AN/TRC-170  modem 

IBW  1*2  Switch  indicating  which  type  of  RF  bandwidth 

constraint  to  be  used  on  desired  signal. 

0  =  No  RF  filtering 

1  =  Filter  determined  froa  9y% 

bandwidth  constraint 

2  =  Filter  chosen  to  aeet  FCC  Mask. 

(KCC-1931 1 ) 

3  =  Filters  are  user  specified. 

Output  arguments! 

PYEAR<2>3)  R*4  Yearly  statistics.  PYEAR<1>.)  is  yearly 

outage  probability  and  PYEAR(2».)  is 

yearly  fade  outage  probability  per  call  ainute 

for  each  PFR  threshold. 

Global  variables  input  froa  coaaon! 

ASNR  /SYSPAR/  R*4  SYSPAR.INC 

Yearly  aedian  value  of  troposcatter  short-tera  average 
SNR*  ie»  Eb/No»  in  dB. 

CDUR  /SYSPAR/  R*4  SYSPAR.INC 

Duration  of  transmitted  pulse  for  AN/TRC-170 
normalized  to  signaling  interval  duration. 

COEFF  /ANSWER/  R*B  ANSWER. INC 

Partial  fraction  expansion  coefficients  for 
calculation  of  AN/TRC-170  outage  probability. 

EIGMIN  /NUMPAR/  R*4  NUHF’AR .  INC 
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10.13  TIMPAR 

Subprogram  name*.  Function  TIMPAR 

Purpose:  To  calculate  sampling  tine  at  steady  state  froa  early-late 

date  loop. 

Calling  seouencet 

TIMPAR  (X2INCR* XINCR) 

Contained  in  module!  TRC 

Called  by*  TIMEQL »  TRC 

Calls:  PROFILr  P2INT 

Input  arguments: 

X2INCR  R*4  Step  incf'aent  for  numerical  integration. 

XINCR  R*4  Step  increment  for  nuaerical  integration. 

Output  arguaentsl 

TIMPAR  R*4  Saapling  tiae  at  steady  state  froa  early-late 
gate  loop. 

Global  variables  input  froa  coaaon: 

IPROFL  /SYSPAR/  1*2  SYSPAR.1NC 

Paraaeter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  form  X  exp  (-A*X)  is  to 
be  used  (IPROFL  =  0)  or  not.  Set  to  zero  in  TRCIN. 

SIGMA  /SYSPAR/  R*4  SYSPAR. INC 

Half  the  RMS  lower  beaa  delay  spread  normalized 
relative  to  the  syabol  duration. 

TO  /SYSPAR/  R*4  SYSPAR. INC 

Noraalized  sampling  tiae  for  lower  beaa. 
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10.12  TIHEQL 

Subprograa  naaet  Subroutine  TIHEQL 

Purpose!  To  determine  the  various  saaplind  tiaes  for  the  short-tera 
perforaance  of  the  AN/TRC-170. 

Calling  seauence! 

CALL  TIHEQL  (TOTO.  IT.  TPAR.  TDEV.  X2INCR.  XINCR.  IHRR) 

Contained  in  aodule!  TRC 


Called  bat  TRC 

Calls!  TIHPAR 

Input  arguaentst 
TDEV  R*4 

X2INCR  R*4 
XINCR  R*4 


Standard  deviation  of  saapling  tiae. 

Step  increaent  for  nuaerical  integration. 
Step  increaent  for  nuaerical  integration. 


Output  arguaentst 


T0T0(20) 

R*4 

Arras  of  saapling  tiaes  (noraalized  to  ssabol 
duration)  for  calculation  of  short  term  TRC-170 
perforaance. 

IT 

1*2 

Nuaber  of  different  saaplinS  tiaes  to  be  used 
in  calculation  of  TRC-170  short  tera 
perforaance. 

TPARI20) 

R*4 

Saapling  tiaes  at  steads-state  for  earls-late 
date  loop. 

IERR 

1*2 

Error  flag. 

Global  variables  output  to  coaaon* 

TO  /SYSPAR/  R*4  SYSPAR.INC 

Noraalized  saapling  tiae  for  lower  beaa. 
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10.11  TIMAVG 

Subprogram  name!  Subroutine  TIHAVG 

Pureosel  To  average  the  short-term  average  bit  error  rate  and  short¬ 
term  outage  probability  over  Gaussian  distributed  timind  Jitter. 

Calling  seauence! 

CALL  TIHAVG  (PERF,  TOTO,  IT,  TDEV,  PERAVG,  I ERR) 

Contained  in  module!  TRC 
Called  by!  TRC 
Calls!  INTERD 

Input  arguments! 


PERF ( 20) 

R*4 

Performance  measure  for  each  sampling  time. 

T0T0<20) 

R*4 

Array  of  sampling  times  (normalized  to  symbol 
duration)  for  calculation  of  short  term  TRC-170 
performance. 

IT 

1*2 

Number  of  different  sampling  times  to  be  used 
in  calculation  of  rRC-170  short  term 
performance. 

TDEV 

R*4 

Standard  deviation  of  timing  Jitter. 

Output  arguments! 

PERAVG  R*4  Average  of  performance  measure  over  Gaussian 
distributed  timing  Jitter. 

IERR  1*2  Error  flag!  0  =  no  error!  1  =  error  in  performance 
measure  calculation. 
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10.10  PROFIL 
Subprograa  naae.  Function  PROF  1 1 

Purpose*  To  calculate  the  power  per  unit  delay  profile  of  received 
troposcatter  signal.  Presently  only  an  exponential  profile  of  the 
fora  A*X  *  EXP(-BtX)  is  allowed.  Power  per  unit  delay  profiles 
calculated  in  propagation  nodule  nay  be  added  later. 

Calling  seauencet 

PROFIL  (X.  IPROFLf  SIGMA) 

Contained  in  nodule*  TRC 

Called  by*.  EIGV>  TIMPAR »  VARW 

Calls*.  NONE 


Input  argunents. 
X  R*4 

IPROFL  1*2 

SIGMA  R*4 


Noraalized  delay  at  which  profile  is  to  be  saapled. 
Switch:  0  =  exponential  power  per  unit  delay  profile 
to  be  used. 

Lower  bean  noraalized  uelay  spread. 


Output  argunents: 
PROFIL  R*4 


Power  per  unit  delay  profile. 
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Standard  deviation  of  future  IS1  for  AN/TRC-170. 
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10.9  POUTAG 

Subprogram  name!  Subroutine  POUTAG 

Purpose!  Calculates  the  conditional  outage  probability  for  a  given 

instantaneous  SNR  bn  averaging  over  ISI  due  to  up  to  two  past  and  two 

future  symbols. 

Calling  seouence! 

CALL  POUTAG  (X.  OUTISI>  IERR) 

Contained  in  module!  TRC 

Called  by!  TRC 

Calls!  ERFC.  INTERD 

Input  arguments ! 

X  f*4  Instantanous  detection  SNR. 

Output  arguments! 

OUTISI  R*4  Conditional  outage  probability. 

IERR  1*2  Error  flag. 

Global  variables  input  fro*  coaeon: 

IRSN  /NUMPAR/  1*2  NUMPAR.INC 

Nuaher  of  values  in  SNR  array  RSNRSN(30).  Used  to 
calculate  ISI  statistics  for  AN/TRC-170.  Initially 
set  to  30. 

KISI  /NUMPAR/  1*2  NUMPAR.INC 

Paraaeter  for  calculation  of  AN/TRC-170  outage 
probability.  Set  to  6  in  data  stateaent. 

NTHR  /SYSPAR/  1*2  SYSPAR.INC 

Pointer  to  bit  error  rate  threshold  for  AN/TRC-170 
outage  probability  calculation. 

RSNMINI3)  /NUMPAR/  R*4  NUMPAR.INC 

SNR  threshold  corresponding  to  each  bit  error  rate 
threshold  for  AN/TRC-170. 

RSNRSN(30)  /NUMPAR/  R*4  NUMPAR.INC 

Set  of  SNR  values  for  which  solution  of  transcendental 
function  (UPISIM)  is  tabulated. 

SNR  /SYSPAR/  R*4  SYSPAR.INC 

Signal  to  noise  ratio. 

UPISIM<30»3)  /NUMPAR/  R*4  NUMPAR.INC 

Solution  of  transcendental  equation  for  each  value  of 
RSNRSN  and  bit  error  rate  threshold  of  interest  in 
AN/TRC-170  outage  probability  calculation. 

XAVAR  /ANSWER/  R*4  ANSWER. INC 

Standard  deviation  of  past  ISI  for  AN/TRC-170. 

X8VAR  /ANSWER/  R*4  ANSWER. INC 
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10.8  PDFSUM 

Subprogram  name!  Function  PDFSUM 

Purpose*  Integration  of  the  probability  density  function  of  the 
detection  SNR. 

Calling  seauencei 

PDFSUM  (NDIVS,  NEIGEN.  VFIGV.  COEFFt  XINCR) 

Contained  in  module!  TRC 
Called  by*.  TRC 
Calls*.  ERLANG,  PDF 

Input  arguments* 


NDIVS 

1*2 

Number  of  explicit  diversities. 

NEI6EN 

1*2 

Number  of  eigenvalues  in  array  VEIGV.  Maximum 
is  20. 

VEIGV(NEIGEN) 

R*8 

Implicit  diversity  eigenvalues  for  AN/TRC-170. 
Dimensioned  to  20. 

C0EFF(40) 

R*8 

Partial  fraction  expansion  coefficients. 

XINCR 

R*4 

Step  increment  for  numerical  integration. 

Output  arguments* 

PDFSUM 

R*4 

Integration  of  the  probability  density 
function  of  the  detection  SNR, 
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Subroutine  PDFCOE 

10.7  PDFCOE 

Subprodraa  naae.  Subroutine  PDFCOE 

Purpose*  Find  partial  fraction  expansion  coefficients  of  signal  sain 
distribution*  C(<N-1)*ID  +  I)*  of 

F<s>  =  <R( 1 )  /  (S  +  R( 1 ) ) )**ID  *  ...  *  ( R  <  NU )  /  (S  +  R(NU)))**ID 
F(s)  =  ...C((N  -  1)  *  ID  +  I)  /  (S  t  R(N) )  *  ID  -  I  +  1  ... 
for  N  =  l»2f...NU»  I  =  1 .2. ... ID 

Call ind  seouenceJ 

CALL  PDFCOE  (NR.  R.  NDIVS.  C.  IERR) 


Contained  in  aodule*  TRC 


Called  by*. 

TRC 

Calls*. 

NONE 

Input  arguments! 

R(NR) 

R*8 

Input  root  array.  R(K>  >  0.  K  =  l.NR. 
to  20. 

Diaensioned 

NR 

1*2 

Size  of  R  array.  Maxiaua  is  20.  Also 
aust  be  less  than  or  eoual  to  40. 

NR  X  NDIVS 

NDIVS 

1*2 

Nuaber  of  explicit  diversity  branches. 

Value  aust  be 

such  that  NR  X  NDIVS  is  less  than  or  eoual  to  40, 


Output  arguments* 


C(NRtNUIVS) 

R*8 

Partial  fraction  expansion  coefficients 
Diaensioned  to  40. 

IERR 

1*2 

Error  flas. 
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10.6  PDF 

Suberoaraa  naae.  Function  PDF 

Purpose*  Coaputes  the  probability  density  function  of  the  detection 

SNR  for  the  AN/TRC-170. 

Calling  sequence: 

PDF  <Xt  NEIGENi  NDIVS.  VEIGV.  COEFF) 

Contained  in  aodule!  IRC 

Called  by!  AVG.  PDFSUM 

Calls!  ERLANG 

Input  arguaents* 

X  R*4 

NEIGEN  1*2 

NDIVS  1*2 

VEIGV(NEIGEN)  R*8 

COEFF (40)  R*8 


SNR  at  which  PDF  is  to  be  evaluated. 

Nuaber  of  eigenvalues  in  array  VEIGV.  Maxiaua 
is  20. 

Nuaber  of  explicit  diversities. 

Iaelicit  diversity  eigenvalues  for  AN/TRC-170. 
Diaensioned  to  20. 

Partial  fraction  expansion  coefficients. 


Output  arguaents 
PDF  R*4 


Probability  density  function  of  the  detection 
SNR  for  the  AN/TRC-170. 
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10*5  PAVERG 

Suberograa  naael  Subroutine  PAVERG 

Purpose*  To  calculate  twice  the  instantaneous  bit  error  rate  (or 

conditional  bit  error  rate)  of  the  AN/TRC-170  given  the  instantaneous 
detection  SNR  and  variance  of  the  I S I • 


Calling  seauence. 

CALL  PAVERG  ( X .  AVGISI*  IERR) 

Contained  in  aodulel  FRC 

Called  but  TRC 

Calls!  ERFC 

Input  arguaents* 

X  R*4  Instantaneous  detection  SNR. 

Output  arguaents t 

AV6ISI  R*4  Twice  the  instantaneous  bit  error  rate. 
IERR  1*2  Error  flag 

Global  variables  input  froa  coaaon! 

SNR  /SYSPAR/  R*4  SYSPAR.INC 

Signal  to  noise  ratio. 

VARISI  /ANSWER/  R*4  ANSWER. INC 

Total  ISJ  variance  for  AN/TRC-170. 
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10.4  P2INT 

Subprograa  naae!  Function  P2INT 

Purpose*  Correlates  the  transaitter-receiver  filter  iapulse  response 

with  a  delayed  version  of  itself. 

Calling  seouence. 

P2INT  (A.  B,  XL  *  XU,  XINCR) 

Contained  in  aodulel  TRC 

Called  by4.  TIHPAR»  VARW 

Calls!  TXPULS 

Input  arguaents! 

A  R*4  Saapling  tiae  at  the  output  of  the  receiver  filter. 

B  R*4  Delay  between  correlator  inputs. 

XL  R*4  Lower  integration  liait. 

XU  R*4  Upper  integration  liait. 

XINCR  R*4  Step  increaent  for  nuaerical  integration, 

Output  arguaentst 

P2INT  R*4  Correlation  of  the  transaitter-receiver  filter 

iapulse  response  with  a  delayed  version  of  itself. 

Global  variables  input  froa  coaaon. 

IPULS  /SYSPAR/  1*2  SYSPAR.INC 

Switch  to  indicate  whether  pulse  shape  at  input  of  the 
AN/TRC-170  detector  includes  the  effects  of  RF  filters 
(IPULS  =  2)  or  not  (IPULS  *  0  or  1).  Set  to  2 
internally.  If  IBU  is  0,  set  to  1. 

NCHIP  /SYSPAR/  1*2  SYSPAR.INC 

Nuaber  of  chips  in  PN  seouence  used  to  expand 
bandwidth  in  AN/TRC-170. 

PDUR  /SYSPAR/  R*4  SYSPAR.INC 

Swabol  pulse  duration. 
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10*3  INTERD 

Subprogram  name*  Subroutine  INTEND 

Purpose*  Linear  interpolation  in  a  table  nf  N  pairs  <XX»YY). 

Call  ins  seouence* 

CALL  INTERD  <Y*  X.  YY »  XXi  N>  IERR) 

Contained  in  module*  TRC 
Called  bsl  POUTAG,  TIMAVG 
Calls!  NONE 

Input  arguments*. 

X  R*4  Value  of  x-coordinate  for  which  y-coordinate  is 

desired. 

YY(N>  R*4  Tabulated  values  of  y-coprdinate  cor  responding  to 
tabulated  x-coordinate.  Dimensioned  to  30. 

XX<N)  R*4  Tabulated  values  of  x-coordinate  cor respondins  to 
tabulated  y-coordinate.  Dimensioned  to  30. 

N  1*2  Number  of  tabulated  values  over  which  interpolation 

is  to  be  performed.  Maximum  is  30. 

Output  arguments. 

Y  R*4  Value  of  y-coordinate  cor respondins  to  X. 

IERR  1*2  Error  flaS. 

0  =  no  error 

5  *  x-coordinate  value  greater  than  largest 

tabulated  value 

6  =  x-coordinate  value  less  than  smallest 

tabulated  value 
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ENHEAN 

ICHIP<30> 

IOPERF 


IOTIME 


IPROFL 

IPULS 


ISN 


IT 

KISI 


I  LERR 

LOUT 

NCHIP 


I 


NDIVS 


Ratio  of  smallest  to  largest  eigenvalue  in  AN/TRC-170 
performance  calculations. 

/ANSWER/  R*4  ANSWER. INC 

Average  received  energy. 

/SYSPAR/  1*2  SYSPAR. INC 

PN  seouence  for  spectrum  spreading  when  the  data 

rate  is  much  smaller  than  the  bandwidth. 

/IOUT/  1*2  I0UT.INC 

Switch  for  calculation  of  performance  of  AN/TRC-170. 

0  =  ABER  and  outage  probability 

1  =  ABER  (average  bit  error  rate)  only 

2  »  Outage  probability  only 
Set  to  0  internally. 

/IOUT/  1*2  IOUT. INC 

Switch  for  calculation  of  performance  of  AN/TRC-170. 

0  =  Short  term  performance  assuming  various 
sampling  times. 

1  -  Short  term  performance  assuming  Gaussian 

timing  Jitter, 

2  =  Yearly  average  performance  assuming 

Gaussian  timing  Jitter. 

Set  to  2  internally. 

/SYSPAR/  1*2  SYSPAR. INC 

Parameter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  form  X  exp  (~A*X)  is  to 
be  used  (IPROFL  =  0)  or  not.  Set  to  zero  in  TRCIN. 
/SYSPAR/  1*2  SYSPAR. INC 

Switch  to  indicate  whether  pulse  shape  3t  input  of  the 
AN/TRC-170  detector  includes  the  effects  of  RF  filters 
(IPULS  =  2)  or  not  (IPULS  =  0  or  1).  Set  to  2 
internally.  If  IBW  is  0»  set  to  1. 

/IOUT/  1*2  IOUT. INC 

Number  of  SNR  values  for  which  short-term  performance 
of  AN/TRC-170  is  to  be  performed.  Set  to  17. 

/IOUT/  1*2  IOUT. INC 

Number  of  different  sampling  times  to  be  used  in 

calculation  of  AN/TRC-170  short  term  performance. 

/NUHPAR/  1*2  NONPAR. INC 

Parameter  for  calculation  of  AN/1RC-170  outage 

probability.  Set  to  6  in  data  statement. 

/LUNS/  1*2  LUNS.INC 

Error  output  unit. 

/LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 

/SYSPAR/  1*2  SYSPAR. INC 

Number  of  chips  in  PN  seouence  used  to  expand 

bandwidth  in  AN/TRC-170. 

/SYSPAR/  1*2  SYSPAR. INC 

Number  of  explicit  diversity  channels  for  AN/TRC-170. 
Eoual  to  4  for  2S/2F  and  2  for  2S  or  2F. 
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NEI6EN 

NPOINT 

NTH1 

NTH2 

NTHR 

NV 

PEAKAV 

SIGMA 

SNDB(2> 

SNRBW 

SNRF2 

SNRJAM 

STSNR1 

T0T0<  20) 

TDEV 


/ANSWER/  1*2  ANSWER. INC 

Number  of  implicit  diversity  eigenvalues  (stored  in 

array  VEI6V)  used  in  calculation  of  AN/TRC-170 

performance. 

/NUMPAR/  1*2  NUMPAR . INC 

Number  of  points  for  numerical  integration. 

/I0UT/  1*2  I0UT.1NC 

Pointer  to  largest  bit  error  rate  threshold  of 

interest  for  AN/TRC-170  outage  probability 

calculation. 

/I0UT/  1*2  I0UT.INC 

Pointer  to  smallest  bit  error  rate  threshold  of 

interest  for  AN/TRC-170  outage  probability 

calculation. 

/SYSPAR/  1*2  SYSPAR, INC 

Pointer  to  bit  error  rate  threshold  for  AN/TRC-170 

outage  probability  calculation. 

/NUMPAR/  1*2  NUMPAR. INC 

Normalization  parameter  for  calculation  of  AN/TRC-170 
signal  gain.  Set  to  18. 

/RZ4/  R*4  RZ4.INC 

Peak-to-average  loss  due  to  RF  filtering  in  dB. 
/SYSPAR/  fi*4  SYSPAR. INC 

Half  the  RMS  lower  beam  delay  spread  normalized 
relative  to  the  symbol  duration. 

/I0UT/  R*4  TOUT. INC 

Signal  to  noise  ratio  in  dB. 

/RZ4/  R*4  RZ4.INC 

Signal  to  noise  ratio  adjustment  for  AN/TRC-170  due  to 
limited  receive  filter  bandwidth. 

/RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  for 

degradation  due  to  interference  from  another 

freouency.  Only  for  2-freouency  AN/TRC-170  modem. 

/RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  of 

AN/TRC-170  for  degradation  due  to  colocated/adjacent 

channel  interference. 

/SYSPAR/  R*4  SYSPAR. INC 

Standard  deviation  of  troposcatter  signal  long-term 

SNR  distribution  in  dB.  Same  as  STSNR  in  /8UHP/. 

/I0UT/  R*4  lUUT.INC 

Array  of  sampling  times  (normalized  to  symbol 

duration)  for  calculation  of  short  term  AN/TRC-170 

performance. 

/NUMPAR/  R*4  NUMPAR. INC 

Standard  deviation  of  sampling  times  for  AN/TRC-170 

performance  calculations. 


Global  variables  output  to  common 
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PAV6(20»20)  /ANSWER/  R*4  ANSWER. INC 

Short-tera  average  bit  error  rate  for  each  saapling 
tiae  and  short-tera  average  SNR. 

PDUR  /SYSPAR/  R*4  SYSPAR.INC 

Syabol  pulse  duration. 

POUT (20»20»3)  /ANSWER/  R*4  ANSWER. INC 

AN/TRC-170  outage  probability  and  average  bit  error 
rate  as  a  function  of  saapling  tiae>  short-tera 
average  SNR  and  error  rate  threshold. 

SNR  /SYSPAR/  R*4  SYSPAR.INC 

Signal  to  noise  ratio. 

TO  /SYSPAR/  R*4  SYSPAR.INC 

Noraalized  saapling  tiae  for  lower  beaa. 

TPAR<  20)  /ANSWER/  RM  ANSWER. INC 

Tiaing  paraaeter  for  AN/TRC-170.  Calculated  when 
IOTIHE  is  0. 

VARAIS  /ANSWER/  R*4  ANSWER. INC 

Past  ISI  variance  for  AN/TRC-170. 

VARBIS  /ANSWER/  R*4  ANSWER. INC 

Future  ISI  variance  for  AN/TRC-170. 

VARISI  /ANSWER/  R*4  ANSWER. INC 

Total  ISI  variance  for  AN/TRC-170, 

VEI6VM20)  /ANSWER/  R*8  ANSWER. INC 

laplicit  diversity  eigenvalues  for  AN/TRC-170, 

X2INCR  /NUHPAR/  R*4  NUHPAR.INC 

Step  inc/eaent  for  nuaerical  integration. 

XAVAR  /ANSWER /  RI4  ANSWER. INC 

Standard  deviation  of  past  ISI  for  AN/TRC-170. 

XBVAR  /ANSWER/  R*4  ANSWER. INC 

Standard  deviation  of  future  ISI  for  AN/TRC-170. 

XINCR  /NUHPAR/  R*4  NUHPAR.INC 

Step  increaent  for  nuaerical  integration. 
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10.15  TRCIN 

Subprogram  name!  Subroutine  TRCIN 

Purpose*  To  define  parameters  for  calculation  of  the  AN/TRC-170  or  DAR 
mode*  troposcatter  performance  for  the  data  rate  and  bandwidth 
specified  by  the  user* 

Calling  sequence* 

CALL  TRCIN  (TRCTYP*BW* IBW*  TAU22*  PRATE* ASNR1 *PSTSNR*NERT *  BOUT*FOUT) 
Contained  in  module!  TRC 
Called  by*.  TROPO 


Calls!  ERROR 

SASEQ 

TRC 

Input  arguments! 

TRCTYP 

R*4 

TRC-170  modem  type  indicator! 

0=1  freouenry  DAR  modem 

1=2  freouency  AN/TRC-170  modem 

BW 

R*4 

Bandwidth  in  Hz. 

IBM 

1*2 

Switch  indicating  which  type  of  RF  bandwidth 
constraint  to  be  used  on  desired  signal. 

0  *  No  RF  filtering 

1  =  Filter  determined  from  99X 

bandwidth  constraint 

2  =  Filter  chosen  to  meet  FCC  Mask. 

(FCC-19311) 

3  *  Filters  are  user  specified. 

TAU22 

R*8 

Delay  spread  on  lower  beam  in  nsec. 

DRATE 

R*4 

Data  rate  in  bits  per  seconds* 

ASNR1 

Rt4 

Median  and/or  yearly  average  value  of 
troposcatter  signal  SNR  in  dB. 

DSTSNR 

R*4 

Standard  deviation  of  troposcatter  signal 
long-term  SNR  distribution  in  dB. 

NERT 

1*2 

Bit  error  rate  threshold  indicator  for  yearly 
outage  probability  calculations. 

0  =  All  three  thresholds 

1  =  For  10*t(-3)  only 

2  =  For  l0**<-4)  only 

3  =  For  10**(-5>  only 

Output  arguments! 

BOUT (3* 4) 

R*4 

Yearly  average  outage  probability  for  each 
bit  error  rate  threshold  specified  and  2S/2F 
and  2S  diversity  configurations. 

FOUT (3*4) 

R*4 

Yearly  average  fade  outage  per  call  minute  for 
each  bit  error  rate  threshold  specified  and 
2S/2F  and  2S  diversity  configurations. 
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Global  variables  input  froa  coaaoni 

KGAIN  /RZ/  1*2  RZ  *  INC 

Integer  ratio  of  bandwidth  to  data  rate* 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  nuaber. 

NTHR  /SYSPAR/  1*2  SYSPAR. INC 

Pointer  to  bit  error  rate  threshold  for  AN/TRC-170 
outage  probability  calculation • 

Global  variables  output  to  coaaon. 

ASNR  /SYSPAR/  R*4  SYSPAR. INC 

Yearly  Median  value  of  troposcatter  short-tera  average 
SNR >  ie»  Eb/Not  in  dB. 

CDUR  /SYSPAR/  R*4  SYSPAR. INC 

Duration  of  transaitted  pulse  for  AN/TRC-170 
noraalized  to  signaling  interval  duration. 

ICH1P(30)  /SYSPAR/  1*2  SYSPAR. INC 

PN  seauence  for  spectrua  spreading  when  the  data 
rate  is  auch  saaller  than  the  bandwidth. 

IOPERF  /IOUT/  1*2  I OUT , INC 

Switch  for  calculation  of  perforaance  of  AN/TRC-170. 

0  *  ABF.R  and  outage  probability 

1  =  ABER  (average  bit  error  rate)  only 

2  =  Outage  probability  only 
Set  to  0  internally. 

IOTIME  /IOUT/  1*2  IOUT. INC 

Switch  for  calculation  of  perforaance  of  AN/TRC-170. 

0  *  Short  tera  perforaance  assuaing  various 
saapling  tiaes. 

1  =  Short  tera  perforaance  assuaing  Gaussian 

tiaing  Jitter. 

2  =  Yearly  average  perforaance  assuaing 

Gaussian  tiaing  Jitter. 

Set  to  2  internally. 

IPROFL  /SYSPAR/  1*2  SYSPAR. INC 

Paraaeter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  fora  X  exp  <-A#X)  is  to 
be  used  (IPROFL  =  0)  or  not.  Set  to  zero  in  TRCIN. 

I PULS  /SYSPAR/  1*2  SYSPAR. INC 

Switch  to  indicate  whether  pulse  shape  at  input  of  the 
AN/TRC-170  detector  includes  the  effects  of  RF  filters 
( IPULS  =  2)  or  not  (IPULS  =  0  or  1).  Set  to  2 
internally.  If  IBM  is  Or  set  to  1. 

ISN  /IOUT/  1*2  IOUT. INC 

Nuaber  of  SNR  values  for  which  short-tera  perforaance 
of  AN/TRC-170  is  to  be  perforaed.  Set  to  17. 

NCHIP  /SYSPAR/  1*2  SYSPAR, INC 

Nuaber  of  chips  in  PN  seauence  used  to  expand 
bandwidth  in  AN/TRC-170. 
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NDIVS 

NTH1 

NTH2 

PEAKAV 

SIGMA 

SNDB(2) 

SNR 

STSNR1 


/SYSPAR/  1*2  SYSPAR.INC 

Number  of  explicit  diversity  channels  for  AN/TRC-170. 
Eoual  to  4  for  2S/2F  and  2  for  28  or  2F. 

/IOUT/  1*2  IOUT. INC 

Pointer  to  largest  bit  error  rate  threshold  of 

interest  for  AN/TRC-170  outage  probability 

calculation. 

/IOUT/  1*2  IOUT. INC 

Pointer  to  smallest  bit  error  rate  threshold  of 

interest  for  AN/fRC-170  outage  probability 

calculation. 

/RZ4/  R*4  RZ4.INC 

Peak-to-averase  loss  due  to  RF  filtering  in  dR. 
/SYSPAR/  R*4  SYSPAR.INC 

Half  the  RMS  lower  beam  delay  spread  normalized 
relative  to  the  symbol  duration. 

/IOUT/  R*4  IOUT. INC 

Signal  to  noise  ratio  in  dB. 

/SYSPAR/  R*4  SYSPAR.INC 

Signal  to  noise  ratio. 

/SYSPAR/  R*4  SYSPAR.INC 

Standard  deviation  of  troposcatter  signal  long-term 

SNR  distribution  in  dB.  Same  as  STSNR  in  /SUMP/. 
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10.16  TXPULS 

Subprogram  name!  Function  TXPULS 

Purpose!  Calculates  the  impulse  response  of  the  cascade  of  transmitter 

and  receiver  filters  at  time  X. 

Calling  seauence! 

TXPULS  (X) 

Contained  in  module!  TRC 

Called  by!  EIGV»  P2INT 

Calls!  NONE 

Input  arguments! 

X  R*4  Normalized  sampling  time. 

Output  arguments! 

TXPULS  R*4  Impulse  response  of  the  cascade  of  transmitter 

and  receiver  filters  at  time  X. 

Global  variables  input  from  common! 

CDUR  /SYSPAR/  R*4  SYSPAR.INC 

Duration  of  transmitted  pulse  for  AN/TRC-170 
normalized  to  signaling  interval  duration. 

ICHIP(30)  /SYSPAR/  1*2  SYSPAR.INC 

PN  seauence  for  spectrum  spreading  when  the  data 
rate  is  much  smaller  than  the  bandwidth. 

IPULS  /SYSPAR/  1*2  SYSPAR.INC 

Switch  to  indicate  whether  pulse  shape  at  input  of  the 
AN/TRC-170  detector  includes  the  effects  of  RF  filters 
(IPULS  =  2)  or  not  (IPULS  =  0  or  1).  Set  to  2 
internally.  If  IBM  is  Of  set  to  1. 

NCHIP  /SYSPAR/  1*2  SYSPAR.INC 

Number  of  chips  in  PN  seauence  used  to  expand 
bandwidth  in  AN/TRC-170. 

NTR  /RZ4/  1*2  RZ4.INC 

Number  of  samples  for  calculating  transmit-receive 
filter  impulse  response  (TRFILT). 

PDUR  /SYSPAR/  R*4  SYSPAR.INC 

Symbol  pulse  duration. 

TRFILT (128)  /RZ4/  R*4  RZ4.INC 

Transmit-receive  filter  impulse  response. 

XTRO  /RZ4/  R*4  RZ4.INC 

Time  origin  for  transmit-receive  filter  impulse 
response  ( TRFILT )  f  ief  X  is  TRFII.T(XtXTRO) . 

XTRINC  /RZ4/  R*4  RZ4.INC 

Sample  interval  for  calculation  of  transmit-receive 
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filter  impulse  response  (TRFILT) 
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10.17  VARU 

Subprogram  name!  Function  VARW 

Purpose!  Variance  of  the  ISI  due  to  the  kth  past  or  future  symbol . 

Calling  seouence! 

VARW  (K*XINCR»X2INCR) 


Contained  in  module!  IRC 

Called  by!  TRC 

Calls!  PROFILE  P2INT 


Input  arguments! 
K  1*2 

XINCR  R*4 
X2INCR  R*4 


ISI  symbol  indicator!  past  if  positive*  future  if 
negative* 

Step  increment  for  numerical  integration* 

Step  increment  for  numerical  integration* 


Output  arguments! 

VARW  R*4  Variance  of  the  ISI  due  to  the  kth  past  or  future 
symbol . 


Global  variables  input  from  common! 

IPROFL  /SYSPAR/  1*2  SYSPAR.INC 

Parameter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  form  X  exp  (-A*X>  is  to 
be  used  (IPROKL  =  0)  or  not.  Set  to  zero  in  TRCIN. 

NDIVS  /SYSPAR/  1*2  SYSPAR.INC 

Number  of  explicit  diversity  channels  for  AN/TRC-170. 
Eoual  to  4  for  2S/2F  and  2  for  2S  or  2F. 

SIGMA  /SYSPAR/  R*4  SYSPAR.INC 

Half  the  RMS  lower  beam  delay  spread  normalized 
relative  to  the  symbol  duration. 

TO  /SYSPAR/  R*4  SYSPAR.INC 

Normalized  sampling  time  for  lower  beam. 
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This  section  describes  the  sueaary  page  output  routines! 

User's  Manual 

Naae  Description  section 


SIM  Simulator  tap  sains . 2.5.7 

SUMPAG  Sueaary  page  output  .  3.4.2 

The  eain  routine  for  this  section  is  SUMPAG.  SUMPAG  writes  to  the  file 
SUMPAG. OUT  on  unit  ISUM.  A  complete  description  of  this  file  can  be  found  in 
section  3.4.2  of  the  User's  Manual. 


NOTE 

In  eost  cases  the  sections  in  the  User's  Manual  describe  the  coded 
eouations  as  well  as  the  theory  behind  thee.  NA  denotes  routines  that 
are  programing  utilities  such  as  finding  indicesf  setting  pointers? 
etc. 
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11.1  SIM 

Subprogram  name!  Subroutine  SIM 

Purpose*  Calculates  troposcatter  path  simulator  tap  sains  in  dB? 

normalized  so  MAX  TAP  =  0  db. 

Calling  seauence! 

CALL  SIM 

Contained  in  module!  SIM 

Called  by!  SUMPAG 

Calls!  NONE 

Input  arguments* 

NONE 

Output  arguments: 

NONE 

Global  variables  input  from  common: 

DELPB  /PDATA/  R*4  PDATA.INC 

Resolution  of  a  delay  cell  in  seconds. 

DIVTYP  /MC0M2/  1*2  MC0M.1NC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas?  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna?  2A  2F  2F/2A 

2=2  transmit? 

2  receive  antennas?  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freouency  A  =  Angle  P  =  Polarization 

IICORR(NCORMX)  /PDATA/  1*2  PDATA.INC 

Array  of  receiving  beams  involved  in  the  correlation 
calculations. 

I2C0RR(NC0RMX)  /PDATA/  [*2  PDATA.INC 

Array  of  receiving  beams  involved  in  the  correlation 
calculations. 

IPROF (NCORMX)  /PDATA/  1*2  PDATA.INC 

0  if  the  Ith  correlation  not  wanted?  1  if  wanted. 

LOUT  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 

MLAST  /PDATA/  1*2  PDATA.INC 

Number  of  simulator  taps.  Default  is  16. 

NCORMX  Parameter  1*2  TROPAR.INC 

Maximum  number  of  correlations  between  receive  ports. 

NCORR  /PDATA/  1*2  PDATA.INC 

Number  of  receive  port  correlations. 
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NDEINX  Parameter  1*2  TROPAR.INC 

Maxiaua  nuaber  of  delaa  bins  in  troposcatter  power  per 
unit  delaw  profiles. 

Q ( NDELNX f NCORNX )  /P DATA/  R*4  PDATA.INC 

Matrix  of  troposcatter  signal  power  and  correlation 
per  unit  delaa  profiles. 

For  DIVTYP  =  01 

Q(.*l)  Power  on  lower  beaa  vs.  delaa. 

Q(.»2)  Correlation  between  lower  and 
upper  bea«i  vs.  delaa. 

Q(.»3)  Correlation  between  lower  beaas 
in  antennas  1  t  2  vs.  delaa. 

Q(.»4)  Power  on  u peer  beaa  vs,  delaa. 

Q < .  * 7 >  Power  on  diffraction  path  vs.  delaa 
For  DIVTYP  =  15 

Q(.il)  Power  on  lower  bean  vs,  delaa. 

Q(.»2)  Correlation  between  lower  and 
upper  bean  vs.  delaa. 

Q(.»3)  Power  on  upper  beat  vs,  delaa 
Q(.»7)  Power  on  diffraction  path  vs.  delaa. 

For  DIVTYP  =  25 

Q(.»l)  Power  on  path  1  (lower  beaa)  vs.  delaa, 
Q(,»2)  Correlation  between  convergent  paths 
(lower  beaa)  vs,  delaa. 

Q(.»3)  Correlation  between  divergent  paths 
(lower  beaa)  vs.  delaa. 

Q(.»4)  Correlation  between  parallel  paths 
(lower  beaa)  vs.  delaa. 

Q(.»5)  Correlation  between  crossing  paths 
(lower  beaa)  vs.  delaa, 

Q(,r6)  Power  on  path  of  upper  beaa  vs.  delaa, 
Q(.»7)  Power  on  diffraction  path  vs.  delaa, 

SPE  /PDATA/  R*4  PDATA.INC 

Tap  spacing  in  nanoseconds.  Default  is  67  nsec. 
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11.2  SUMPAG 

Subprogram  name!  Subroutine  SUMPAG 

Purpose?  Outputs  the  summary  file  SUMPAG. OUT. 

Description?  The  date  on  the  first  ease  is  the  principal  link  data.  A 
second  page  is  printed  for  modem  information.  if  one  was  specified. 
The  third  page  contains  additional  information  relating  to  the  common 
volume  inteSration. 

Subseouent  pages  list  the  delay  power  impulse  response  or  cross¬ 
power  (correlation)  versus  delay.  One  page  is  printed  for  each  delay 
profile  reouested  in  the  input  data  (IBR).  The  units  are  those 
specified  by  LUNITS. 


Callina  seouence? 

CALL  SUMPAG  (PTYPE »  BOUT.  TOUT.  JPOW.  CLIMAT) 
Contained  in  module?  SUMPAG 


Called  by?  TROPO 

Calls?  ANTPTR.  ERROR.  SIM.  UNITCV 


Input  arguments: 
PTYPE 

BOUT (3.4) 

FOUT (3.4) 

JPOW 

CLIMAT 


1*2  Variable  which  indicates  whether  propagation 
mechanism  is  pure  troposcatter  (0  or  10)  or 
mixed  troposcatter-dif fraction  (1  or  11), 

R*4  Yearly  average  fade  outage  probability  for  each 
bit  error  rate  threshold  specified  and  2S/2F 
and  2S  diversity  configurations. 

R*4  Yearly  average  fade  outage  probability  per 

call  minute  for  each  bit  error  rate  threshold 
specified  and  2S/2F  and  2S  diversity 
configurations . 

R*8  Interference  signal  power  density  in  dBm/Hz. 

R*4  Climate  zone  indicator. 


Output  arguments? 

Global  variables  input  from  common! 

AA  /PROPAR/  R*4  TROCOM.INC 

Atmospheric  absorption  loss  in  dB. 

ALFAO  /PATHGE/  R*4  TR0C0M.INC 

Minimum  transmit  antenna  elevation  angle  measured  from 
transmitter-to-recei ver  line  to  transmit  horizon  line 
in  radians. 

AR(NRMX)  /ANTENN/  R*4  TR0C0M.INC 

Array  of  receiver  antenna  diameters  in  meters.  AR<1> 


IUTPUT 
.ine  SUMPAG 
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AT(NTMX) 

BER(3) 

BETAO 

BU 

C 

D 

DE 

DEL 

DELPB 
DIFLOS( 3) 


is  eouivalent  to  RDIAM  in  the  input  file. 

/ANTENN/  R*4  TROCOM.INC 

Array  of  transmitter  antenna  diameters  in  meters. 

AT<1)  is  eouivalent  to  TDIAM  in  the  input  file. 

/ERAD/  R*4  ERAD.INC 

Bit  error  rate  thresholds  of  interest.  Set  to  IE-3* 
IE-4  and  IE-5  in  data  statement. 

/PATHGE/  R*4  TROCOM.INC 

Hinimuin  receive  antenna  elevation  ansle  measured  from 
receiver-to-transmitter  line  to  receiver  horizon  line 
in  radians. 

/SYSTRN/  R*4  TROCOM.INC 

Bandwidth  in  Hertz.  Default  is  7  HHz. 

/PDATA/  R*4  PDATA. INC 

Proportionality  constant  in  troposcatter  path  loss 

calculation. 

/PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  meters. 

/SUMP/  R*4  CURVE. INC 

Effective  distance  for  troposcatter  path  in 
kilometers. 

/SUMP/  K*4  CURVE. INC 

Diffraction  path  delay  relative  to  a  straight  line 

path  in  seconds. 

/PDATA/  R*4  PDATA. INC 

Resolution  of  a  delay  cell  in  seconds. 

/SUMP/  R*4  CURVE. INC 


Median  diffraction  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

DIFRSL(3)  /SUMP/  R*4  CURVE. INC 

Median  diffraction  signal  RSL  in  dBm  for  each  value  in 
ERFAC  distribution. 

DIVTYP  /MC0M2/  1*2  MCOM.INC 

Diversity  configuration  indicator.  Default  is  0, 

0=2  receive  antennas?  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna?  2A  2F  ?i /2A 

2=2  transmitf 

2  receive  antennas?  2S/2P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freauency  A  =  Ansle  P  =  Polarization 


DLR 

/PATHGE/ 

R*4 

TROCOM.INC 

Distance 

from  receiver 

to  radio  horizon  in 

meters , 

DLT 

/PATHGE/ 

R*4 

TROCOM.INC 

Distance 

from  transmitter  to  radio  horizon 

in  meters. 

DSTSNR 

/SUMP/ 

R*4 

CURVE. INC 

Standard 

deviation  of 

diffracted  signal  long-term  SNR 

distribution  in  dB. 

ERFAC 

/PROPAR/ 

R*4 

TROCOM.INC 

LATED  INFORMATION 
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LOOPS  .FTN 

contains  the 

LOOPS  , 

Subroutine 

LTCORR.FTN 

contains  the 

LTCORR » 

Subroutine 

MATCO  .FTN 

contains  the 

MATCO  , 

Subroutine 

MATOPS.FTN 

contains  the 

CHANGE  » 

Subroutine 

MATA  , 

Subroutine 

SQTMAT  * 

Subroutine 

MDIF  .FTN 

contains  the 

TANGL  » 

Subroutine 

niFi  , 

Subroutine 

MDIF  , 

Subroutine 

MOTS  .FTN 

contains  the 

MDTS  , 

Subroutine 

MINV  .FTN 

contains  the 

MINV  , 

Subroutine 

ORDER  .FTN 

contains  the 

ORDER  * 

Subroutine 

OUTDAT.FTN 

contains  the 

OUTDAT , 

Subroutine 

POWER  .FTN 

contains  the 

POWER  , 

Subroutine 

PROUT  .FTN 

contains  the 

PROUT  , 

Subroutine 

RGAIN  .FTN 

contains  the 

RGAIN  , 

Function 

RIPROF.FTN 

contains  the 

R I  PROF, 

Subroutine 

SASEO  .FTN 

contains  the 

SASEO  , 

Subroutine 

SIGIN  .FTN 

contains  the 

SIGIN  , 

Subroutine 

following  subprograms! 

following  subprograms* 

following  subprograms! 

following  subprograms: 

following  subprograms! 

following  subprograms: 

following  subprograms! 

following  subprograms! 

following  subprograms: 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms: 
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VARPOL*  Function 

DELO  .FTN  contains  the 
DELO  *  Subroutine 

DIFSNR.FTN  contains  the 
DIFSNR*  Subroutine 

DINT  .FTN  contains  the 
CAKL  *  Subroutine 
DINT  *  Subroutine 
CAC  *  Function 

EIGEN  .FTN  contains  the 
EIGEN  >  Subroutine 

ELMES  .FTN  contains  the 
ELMES  *  Subroutine 
HOR  >  Subroutine 

ERFC  .FTN  contains  the 
ERFC  *  Function 

ERLANG. FTN  contains  the 
ERLANG*  Function 

ERRIO  .FTN  contains  the 
ERRIO  *  Subroutine 

ERROR  .FTN  contains  the 
ERROR  *  Subroutine 

FRGSEP.FTN  contains  the 
FRQSEPr  Subroutine 

GPATT  .FTN  contains  the 
GPATT  *  Subroutine 

HORANG.FTN  contains  the 
HORANl!*  Subroutine 

INDATA. FTN  contains  the 
INDATA*  Subroutine 
SECTOR*  Subroutine 

INTLIM.FTN  contains  the 
INTLIM*  Subroutine 

JAMCOM.FTN  contains  the 
JAMCOM*  Subroutine 


following  subprograms' 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 


• 

- 

:lated  information 

PaSe  A-6 

?  /  Subprogram  Reference  Index 

• 

PDFCONi 

Subroutine 

BOTAC  ,FTN 

contains  the 

following 

subprograms: 

BOTAC  » 

Subroutine 

TPSPEC. 

Function 

*1 

TPSPJ  ? 

Function 

PURSPCt 

Function 

RJCFCN» 

Function 

TSINC  . 

Function 

BUTFIL.FTN 

contains  the 

foil ow ins 

subprograms? 

' 

BUTFIL  > 

Subroutine 

# 

A5QFCC i 

Function 

BWJAM  '» 

Subroutine 

ENRGF  » 

Subroutine 

FCCMSK  » 

Subroutine 

F  FT  » 

Subroutine 

FUNBW  ? 

Function 

# 

FUN JAM) 

Function 

INTERS? 

Subroutine 

PEAK  . 

Subroutine 

PSPFC  ? 

Function 

PSPEC1 1 

Function 

PSPEC2? 

Function 

PSPJ  * 

Function 

RTMI  » 

Subroutine 

SAMPLE? 

Subroutine 

SEARCH? 

Subroutine 

SPEC  . 

Function 

-  ■ 

- -4 

SPEC1  ? 

Function 

• 

< 

SPEC2  » 

Function 

■- 

CAJI  . FTN 

contains  the 

fol lowins 

subprograms ! 

CA.JI  » 

Subroutine 

CHKBAT.FTN 

contains  the 

following 

subprograms  .* 

• 

< 

CHKDAT » 

Subroutine 

CLIME  .FTN 

contains  the 

followinS 

subprograms: 

CLIME  ? 

Subroutine 

CLIFIT? 

Subroutine 

A 

TINT  » 

Subroutine 

DEINB  * 

Subroutine 

CLIMIL . FTN 

contains  the 

fol lowins 

subprograms'. 

"  /•  - 

y  V- 

CLIMIL? 

Subroutine 

y*. 

VDECAL* 

Subroutine 

• 

CLIMIX.FTN 

contains  the 

followinS 

subprograms: 

CLIMIX? 

Subroutine 

■;  ;  !■ 

• 

• 

.  -  .*>  ,*• 

’/  ',*  '/  '.*  *.*  .• 
— '* _ N* _ 

•  ’  •*.  •  ’  «’4  •*  / 

.  " **,  ■*.  **. 
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TGAIN  . 

Function 

TGAIN  .FTN 

TIMAVG* 

Subroutine 

TRC 

.FTN 

TIMEQLf 

Subroutine 

TRC 

.FTN 

TIMPARr 

Function 

TRC 

.FTN 

TPSPEC» 

Function 

BOTAC  .FTN 

TPSPJ  » 

Function 

BOTAC  .FTN 

TRANSF » 

Subroutine 

TRANSF. FTN 

TRC  » 

Subroutine 

TRC 

.FTN 

TRCIN  » 

Subroutine 

TRC 

.FTN 

TRLOSSf 

Subroutine 

TRLOSS.FTN 

TROPO  ♦ 

Main  program 

TROPO  .FTN 

TSINC  » 

Function 

BOTAC  .FTN 

TXPULS. 

Function 

TRC 

.FTN 

UNITCV> 

Subroutine 

IJNITCV.FTN 

UNITS  » 

Subroutine 

UNITS  .FTN 

VARPOL. 

Function 

CLINIX.FTN 

VARW  » 

Function 

TRC 

.FTN 

VDECAL  t 

Subroutine 

CLINIL.FTN 

XNOR  > 

Function 

XNOR 

.FTN 

i  INT  f 

Subroutine 

CLINE  .FTN 

A. 2  Module  /  Subprogram  Reference  Index 

ANTGEO.FTN  contains  the  following  subprograms? 

ANTGE0»  Subroutine 

ANTPAR.FTN  contains  the  following  subprograms: 

ANTPAR»  Subroutine 

ANTF’TR . FTN  contains  the  following  subprograms? 

ANTPTR>  Subroutine 

ATMOS  .FTN  contains  the  following  subprograms? 

ATMOS  t  Subroutine 

AVAIL  .FTN  contains  the  following  subprograms? 

AVAIL  t  Subroutine 
CONVOL*  Subroutine 
INTERP.  Subroutine 

AVTER  .FTN  contains  the  following  subprograms? 

AVTER  »  Subroutine 

BEAMPT.FTN  contains  the  following  subprograms? 

8EAMPT.  Subroutine 

BERCAL.FTN  contains  the  following  subprograms? 

BERCAL.  Subroutine 
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INTLIM* 

Subroutine 

INTLIM. FTN 

JAMCOM* 

Subroutine 

JAMCOM. FTN 

LOOPS  . 

Subroutine 

LOOPS  .FTN 

LTCORR* 

Subroutine 

LTCORR.FTN 

MATA  » 

Subroutine 

MATOPS.FTN 

MATCO  * 

Subroutine 

MATCO  .FTN 

MDIF  . 

Subroutine 

MDIF 

.FTN 

MDTS  * 

Subroutine 

MDTS 

.FTN 

MINV  * 

Subroutine 

MINV 

.FTN 

ORDER  * 

Subroutine 

ORDER  .FTN 

OUTDAT* 

Subroutine 

OUTDAT. FTN 

P2INT  * 

F  j  iction 

TRC 

.FTN 

PAVERG* 

Subroutine 

TRC 

.FTN 

PDF  » 

Function 

TRC 

.FTN 

PDFCOE* 

Subroutine 

TRC 

.FTN 

PDFCON* 

Subroutine 

SERCAL.FTN 

PDFSUM. 

Function 

TRC 

.FTN 

PEAK  . 

Subroutine 

BUTFIL.FTN 

POUTAG. 

Subroutine 

TRC 

.FTN 

POWER  . 

Subroutine 

POWER  .FTN 

PROFIL. 

Function 

TRC 

.FTN 

PROUT  . 

Subroutine 

PROUT  .FTN 

PSINE  . 

Function 

SINT 

.FTN 

PSPEC  . 

Function 

BUTFIL.FTN 

PSPEC1 * 

Function 

BUTFIL.FTN 

PSPEC?  * 

Function 

BUTFIL.FTN 

PSP  J  . 

Function 

BUTFIL.FTN 

PURSF'C  * 

Function 

BOTAC  ,FTN 

RGAIN  t 

Function 

RGAIN  .FTN 

RIPROF  r 

Subroutine 

RIPROF. FTN 

RJCFCNi 

Function 

BOTAC  .FTN 

RTMI  f 

Subroutine 

BUTFIL.FTN 

SAMPLE. 

Subroutine 

BUTFIL.FTN 

SASEQ  . 

Subroutine 

SASEQ  .FTN 

SEARCH. 

Subroutine 

BUTFIL.FTN 

SECTOR. 

Subroutine 

INDATA. FTN 

SIGIN  . 

Subroutine 

SIGIN  .FTN 

SIM  . 

Subroutine 

SIM 

.FTN 

SINC  . 

Function 

SINC 

.FTN 

SINT  . 

Subroutine 

SINT 

.FTN 

SPEC  . 

Function 

BUTFIL.FTN 

SPEC1  . 

Function 

BUTFIL.FTN 

SPEC?  . 

Function 

BUTFIL.FTN 

SQTMAT . 

Subroutine 

MATOPS.FTN 

STEPAB. 

Function 

STEPAB. FTN 

STEFY  . 

Function 

STEPY  .FTN 

STPF'AR. 

Subroutine 

STPPAR.T  TN 

SUB  ID  . 

Subroutine 

SUBID  .FTN 

SUMPAG. 

Subroutine 

SUMPAG. FTN 

TANGL  . 

Subroutine 

MDIF 

.FTN 

T — 

•  *  1 

3 

P  RELATED 

INFORMATION 

bproaram 

/  Module 

Reference  Index 

M 

• 

A  •  1 

Subprodran  /  Module  Reference 

Index 

. 

A50FCC* 

Function 

BUTFIL.FTN 

ANTGEO* 

Subroutine 

ANTGEO. FTN 

'  '  m 

ANTPAR* 

Subroutine 

ANTPAR.FTN 

• 

ANTPTR* 

Subroutine 

ANTPTR .FTN 

ATMOS  > 

Subroutine 

ATMOS  .FTN 

AVAIL  * 

Subroutine 

AVAIL  .FTN 

AV6  * 

Subroutine 

TRC  .FTN 

AVTER  * 

Subroutine 

AVTER  .FTN 

BEAMPT * 

Subroutine 

BEAMPT. FTN 

• 

BERCAI.  * 

Subroutine 

BERCAL.FTN 

BOTAC  . 

Subroutine 

BOTAC  .FTN 

BUTFTLf 

Subroutine 

BUTFIL.FTN 

BWJAM  * 

Subroutine 

BUTFIL.FTN 

CAC  * 

Function 

DINT  .FTN 

CAJI  » 

Subroutine 

CAJI  .FTN 

• 

CAKL  * 

Subroutine 

DINT  .FTN 

CHANGE* 

Subroutine 

MATOPS.FTN 

CHKDAT  * 

Subroutine 

CHKDAT. FTN 

CLIFIT. 

Subroutine 

CLIME  .FTN 

* 

CLIME  * 

Subroutine 

CLIME  .FTN 

_ ^ 

CLIMIL* 

Subroutine 

CLIMIL. FTN 

• 

CLIMIX, 

Subroutine 

CLIMIX. FTN 

CONVOL* 

Subroutine 

AVAIL  .FTN 

DEIND  » 

Subroutine 

CLIME  .FTN 

DELO  » 

Subroutine 

DELO  .FTN 

BIF1  * 

Subroutine 

MDIF  ,FTN 

DIFSNRi 

Subroutine 

DIFSNR.FTN 

m 

DINT  * 

Subroutine 

DINT  .FTN 

EIGEN  » 

Subroutine 

EIGEN  .FTN 

EIGV  * 

Subroutine 

TRC  .FTN 

ELMES  » 

Subroutine 

ELMES  .FTN 

ENRGF  * 

Subroutine 

BUTFIL.FTN 

ERFC  . 

Function 

ERFC  .FTN 

• 

ERLANG* 

Function 

ERLANG. FTN 

ERRIO  * 

Subroutine 

ERRIO  .FTN 

ERROR  * 

Subroutine 

ERROR  .FTN 

rCCMSK* 

Subroutine 

BUTFIL.FTN 

FFT  * 

Subroutine 

BUTFIL.FTN 

FRGSEP. 

Subroutine 

FRQSEP.FTN 

• 

FUNBU  * 

Function 

BUTFIL.FTN 

FUNJAM. 

Function 

BUTFIL.FTN 

GPATT  * 

Subroutine 

GPATT  .FTN 

HORANG* 

Subroutine 

HORANG. FTN 

HQR  * 

Subroutine 

ELMES  .FTN 

•  -  '■ 

INDATA. 

Subroutine 

INDATA. FTN 

• 

INTERB. 

Subroutine 

BUTFIL.FTN 

INTERD* 

Subroutine 

TRC  .FTN 

INTERP* 

Subroutine 

AVAIL  .FTN 

• 

.  1  .  *  *  ■  »  ’  *  '/  '/  '/  .*  «*  »■  •*,  **,  **, 

«  ’■*  %  -‘."i  *  •  -'a  -  t  — V  ^  * 
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Figure  A-l  Diagram  of  Overlay  for  PDP-11  Version  of  TROPO 
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PDP  RELATED  INFORMATION 


The  following  information  is  only  for  those  who  are  using  the  PDP  version 
of  TROPO  (as  opposed  to  the  IBM  version).  If  you  are  not  sure  which  version  you 
have*  see  the  introduction  to  this  document  which  describes  the  differences. 

Figure  A-l  is  a  chart  of  the  overlay.  The  names  refer  to  modules  (source 

file  names)  rather  than  subprogram  names.  (The  table  in  section  A. 3  lists  the 
subprograms  in  each  module.)  TROPO  is  written  in  F4P  Fortran  so  it  must  access 
the  F4P0TS  module  (Fortran  library  routines).  The  default  library  is  whatever 
current  version  of  Fortran  is  installed  on  your  system.  In  order  to  insure  that 

all  modules  are  accessing  F4F  library  functions  and  not  F77  or  other  version 

functions*  LIB  is  placed  explicitly  throughout  the  overlay.  It  is  not 
sufficient  to  have  it  Just  in  the  root.  It  must  be  at  the  end  of  each  branch. 

This  appendix  will  also  aid  in  finding  a  particular  subprogram  or  common. 
Since  the  Flip  version  is  divided  into  modules  or  source  files*  finding  a 
particular  subprogram  that  is  included  in  a  module  of  a  different  name  can  be 
difficult.  The  following  three  tables  will  help* 

1)  The  Subprogram  /  Module  Reference  Index 

This  lists  each  subroutine  or  function  alphabetically 
by  name  followed  by  the  module  it  is  in. 

2)  The  Module  /  Subprogram  Reference  Index 

This  lists  each  module  and  the  subprograms  it 
contains . 

3)  The  Com* on  /  Include  File  Reference  Index 

This  lists  each  common  followed  by  the  include  file 
it  is  in. 
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UDIST  /UNIT/  R*4  IODATA.INC 

Unit?  of  distance  (smit  nmi>  km). 

UFREQ  /UNIT/  R*4  IODATA.INC 

Units  of  freauency  <GHz>  HHz). 

UNITE  /UNIT/  R*4  IODATA.INC 

Units  of  heisht  and  diameter  (ft»  »). 

URH(NR)  /PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  horizontal  offsets  from 
sreat  circle  plane  in  meters. 

URL(NR)  /PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  longitudinal  offsets  in 
meters. 

URV(NR)  /PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  vertical  offsets  in  meters. 

UTH(NT)  /PATHGE/  R*4  TROCOH.INC 

Array  of  transmit  antennas  horizontal  offsets  in 
meters . 

UTL (NT)  /PATHGE/  R*4  TROCOH.INC 

Array  of  transmit  antennas  longitudinal  offsets  in 
meters. 

UTV(NT)  /PATHGE/  R*4  TROCOH.INC 

Array  of  transmit  antennas  vertical  offsets  in  meters. 

WLT  /SYSTRN/  R*4  TROCOH.INC 

Rated  transmission  power  in  Watts.  Default  is  1000  W. 

Global  variables  output  to  common*. 

IOPEND  /CONTRL/  1*2  TROCOH.INC 

Number  of  output  files  opened. 
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RLL 

S 

SCPARM 

SPREAD(NCORhX) 

STSNR 

SUFRES 

TAPOUT 

TEMPA(NCORMX) 

THER 

THET 

THETAO 

TLL 

T0DAY<9> 

TR0L0S(3) 

TRORSK3) 

UANGLE 


paths . 

QC0RR(4)  Correlation  coefficient  between  parallel 
paths. 

GC0RR(5)  Correlation  coefficient  between  crossing 
paths. 

QC0RR(6)  Power  on  upper  bean. 

/SYSTRN/  R*4  TROCOM.INC 

Receiver  line  losses  in  dF.  Default  is  0  db. 

/PATHGE/  R*4  TROCOM.INC 

Troroscatter  path  asymmetry  parameter. 

/PROPAR/  R*4  TROCOM.INC 

Wavenumber  spectrum  slope  parameter  M.  Default  is 

3.66. 

/PDATA/  R*4  PDATA. INC 

Array  of  delay  spreads  (2-sigma)  for  each  beam  in 

seconds . 

/SUMP/  R*4  SUMP. INC 

Standard  deviation  of  troposcatter  signal  long-term 
SNR  distribution  in  dF. 

/IODATA/  L*4  IODATA . INC 

Supress  long  output  in  SUMPAG  if  true. 

Set  to  TRUE  if  PTYPE  >  9. 

/PDATA/  1*4  PDATA. INC 

If  true,  the  simulator  tap  values  are  output  to  the 
output  file.  F0R002.DAT.  Default  is  TRUE. 

/PDATA/  R*4  PDATA. INC 

Arras  of  average  troposcatter  signal  delays  for  each 
beam  relative  to  straight  line  in  seconds. 

/PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  receive  site  in 

radians. 

/PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  transmit  site  in 

radians . 

/PATHGE/  R*4  TROCOM.INC 

Scattering  angle  at  bottom  of  common  volume  in 
radians . 

/SYSTRN/  R*4  TROCOM.INC 

Transmitter  line  losses  in  dF.  Default  is  0  dB. 
/TSTAMP/  Ltl  IODATA. INC 

Array  used  in  PDP-11  version  to  hold  date  as 
characters . 

/SUMP/  R*4  CURVE. INC 

Median  troposcatter  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

/SUMP/  R*4  CURVE, INC 

Median  troposcatter  RSL  in  dBm  for  each  value  in  ERFAC 
distribution. 

/UNIT/  R*4  IODATA. INC 

Units  of  angle  (deg.  mrad). 
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is  the  na  i  n  transnit  antenna. 

Q(NDELMX»NCORNX)  /PDATA/  R*4  PDATA. INC 

Matrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  profiles. 

For  DIVTYP  =  0*. 

Q(.tl)  Power  on  lower  bean  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  beat  vs.  delay. 

Q(.»3)  Correlation  between  lower  beans 
in  antennas  112  vs.  delay. 

G(.»4)  Power  on  upper  bean  vs.  delay. 

G(.i7)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  =  11 

Q(,y 1)  Power  on  lower  bean  vs.  delay. 

Q(.»2)  Correlation  between  lower  and 
upper  bean  vs.  delay. 

G(.»3)  Power  on  upper  bean  vs.  delay 
G(.»7)  Power  on  diffraction  path  vs.  delay. 

For  DIVTYP  =  21 

G ( . » 1 )  Power  on  path  1  (lower  bean)  vs.  delay. 
Q(.*2)  Correlation  between  convergent  paths 
(lower  bean)  vs.  delay. 

G(.»?)  Correlation  between  divergent  paths 
(lower  bean)  vs.  delay. 

G(.»4)  Correlation  between  parallel  paths 
(lower  bean)  vs.  delay. 

0(.»5)  Correlation  between  crossing  paths 
(lower  bean)  vs.  delay. 

G(,r4)  Power  on  path  of  upper  bean  vs.  delay. 
G(.»7)  Power  on  diffraction  path  vs.  delay. 

GCORR ( NCORMX )  /PDATA/  R*4  PDATA. INC 

Contains  elenents  of  covariance  natrxx*  ie»  powers  and 
correlations. 

For  DIVTYP  =  05 

GCORR(l)  Power  on  lower  bean 

QC0RR<2)  Correlation  coefficient  between  lower 
and  upper  bean. 

QC0RR(3)  Correlation  coefficient  between  lower 
beans  of  antennas  1  and  2 
QC0RR<4)  Power  on  upper  bean. 

For  DIVTYP  =  1*. 

QCORR(l)  Power  on  lower  bean 
QC0RR<2)  Correlation  coefficient  between  lower 
and  upper  bean. 

QC0RR(3)  Power  on  upper  bean. 

For  DIVTYP  =  25 

GCORR(l)  Power  on  path  1  (lower  bean) 

QC0RR<2)  Correlation  coefficient  between  convergent 
paths . 

QC0RR<3)  Correlation  coefficient  between  divergent 


FINAL  OUTPUT 
Subroutine  SUMPA6 


N0DSI6 

NACCU 

NCORR 

NDELMX 

NERT 

NEUCL ( 4 ) 

NOW ( 8 ) 

NR 

NT 

PLOSSM 

PSIRAO(NRHX) 

PSIREO(NRHX) 

PSITAO(NTMX) 

PSITEO(NTMX) 


Page  11-8 


Propasation/modem  flag  to  select  calculation  mode. 
Default  is  1. 

0  =  Propagation  only 

1  =  Propagation  +  HD-918  modem 

2  =  Propagation  +  AN/TRC-170  or  DAR  modem 

3  =  Propagation  +  user-defined  modem 

/HC0H2/  1*2  HCOH.INC 

Interference  signal  modulation  format.  Default  is  1. 

0  =  Analog  FOM  /  FM 
1  =  Digital  QPSK 

/CONTRL/  1*2  TROCOH. INC 

Paraneter  used  as  truncation  point  for  common 

volume  integration  termination.  Default  is  40. 

/PDATA/  1*2  PDATA.INO 

Number  of  receive  port  correlations. 

Parameter  1*2  TROPAR.INC 

Maximum  number  of  delay  bins  in  troposcatter  power  per 
unit  delay  profiles. 

/MC0M2/  1*2  HCOH.INC 

Pit  error  rate  threshold  indicator  for  yearly  fade 
outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  =  For  10**(-3)  only 

2  =  For  10**(-4>  only 

3  =  For  10**(-5)  only 

/MC0M2/  1*2  HCOH.INC 

New  climate  type  character  string. 

/TSTAMP/  L*1  I0DATA. INC 

Array  used  in  PDP-11/70  version  to  hold  time  of  day  as 
characters . 

/SYSTRN/  1*2  TROCOH. INC 

Number  of  receive  ports. 

/SYSTRN/  1*2  TROCOH. INC 

Number  of  transmit  ports. 

/PDATA/  R*4  PDATA. INC 

Troposcatter  path  loss  from  approximate  analytic 

expression. 

/ANTENN/  R*4  TROCOH. INC 

Array  of  receiver  beam  azimuths  in  radians. 

/ANTENN/  R*4  TROCOH. INC 

Array  of  receiver  beam  boresight  elevations  above 
radio  horizon  in  radians?  ie»  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSIREO(l) 
is  the  main  receive  antenna. 

/ANTENN/  R*4  TROCOH. INC 

Array  of  transmitter  beam  azimuths  in  radians. 

/ANTENN/  R*4  TROCOH. INC 

Array  of  transmitter  beam  boresight  elevations  above 
radio  horizon  in  radians?  ie?  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSITEO(l) 
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troposcatter  integration.  It  is  an  error  it  INF.G  >  0. 


IPOLR(NRMX) 

IPOLT(NTHX) 

IPOS 


IPROF (NCORMX) 
ITER 

LINKNO 
LNAME ( 20) 

LSUM 

LUNITS 


MODPAT 


/ANTENN/ 


1*2 


TROCOM.INC 


Array  of  receiver  antenna  polarizations. 


/ANTENN/ 


1*2 


TROCOM.INC 


Array  of  transaitter  antenna  polarizations. 

/PDATA/  1*2  PDATA. INC 

Nuaber  of  delay  cells  exceeding  the  last  allocated 
array  element.  This  nuaber  should  be  zero  or  saall. 
IPOS  >  0  is  not  a  serious  error  unless  the  delay 
profile  calculated  has  a  clear  peak  in  the  last  delay 
cell . 

/PDATA/  1*2  PDATA. INC 

0  if  the  Ith  correlation  not  wanted*  1  if  wanted. 

/PDATA/  1*4  PDATA. INC 

Nuaber  of  integration  cells  in  the  coaaon  voluae 

integration. 

/IODATA/  1*2  IODATA. INC 

Link  nuaber. 

/IODATA/  1*2  IODATA. INC 

Link  naae.  Transmitter  site  first*  receiver  site 
second.  Used  as  link  identifier  on  output  files 
F0R002.DAT  and  SUHPAG.OUT. 

/LUNS/  1*2  LUNS .INC 

SUMPAG. OUT  output  unit  nuaber. 

/UNIT/  1*2  IODATA. INC 

Integer  value  that  specifies  the  set  of  units 
reouested  by  the  user.  These  units  are  for  path* 
antenna  location*  angle*  and  freauencw  paraaeters. 
Default  is  8.  The  given  units  are  defined  by  bit 
values  of  LUNITS! 

Bit  no.  Meaning  of  value  0/1 

0  enslish  /  aetric 


1 

2 

3 

4 


statute  ailes  /  nautical  ailes 
feet  /  aeters 
a  rad  /  degrees 
GHz  /  MHz 


Valid  LUNITS  values  are 


o  : 

stat.  ailes 

feet 

ai  lliradians 

- 

GHz 

l  : 

kilometers 

aeters  - 

aillirsdians 

- 

GHz 

2  : 

naut.  ailes  - 

feet 

ailliradians 

- 

GHz 

8  : 

stat.  ailes  - 

feet 

degrees 

- 

GHz 

9  ! 

kiloaeters 

aeters  - 

degrees 

- 

GHz 

105 

naut. ailes 

feet 

degrees 

- 

GHZ 

16! 

stat.  ailes 

feet 

ailliradians 

- 

MHz 

17! 

kiloaeters 

aeters  - 

ailliradians 

- 

MHz 

18! 

naut.  ailes  - 

feet 

ailliradians 

- 

MHz 

24! 

stat.  ailes  - 

feet 

degrees 

- 

MHz 

25! 

kiloaeters 

aeters  - 

degrees 

- 

MHz 

265 

naut.  ailes 

feet 

degrees 

- 

MHz 

/MCOM 

2/  1*2 

MCOM. 

INC 

FINAL  OUTPUT 
Subroutine  SUHPAG 


Paae  11-6 


ERR 

F 

FSEP 

GRDB(NRMX) 

GTDB(NTHX) 

HCOh 

HHIGH 

HLR 

HLT 

HRN 

HTN 

IICORR(NCORMX) 

I2C0RR(NC0RHX) 

IBR(NRMX.NRMX) 


ICLIHE 


INEG 


Yearly  Median  value  of  effective  earth  radius  factor  k 
in  kiloteters.  Default  is  1.33. 

/CONTROL/  R*4  TROCOH.INC 

Cotton  volute  intedration  resolution.  Default  is  .001. 
/SYSTRN/  R*4  TROCOH.INC 

Operatind  freouency  in  Hz.  Model  is  accurate  between 
lOOHHz  and  10GHz. 

/PDATA/  R*4  PDATA.INC 

Freouency  separation  for  uncorrelated  freouency 

diversity  in  Hz. 

/ANTENN/  R*4  TROCOH.INC 

Gain  of  each  receive  antenna  in  dBi. 

/ANTENN/  R*4  TROCOH.INC 

Gain  of  each  transmit  antenna  in  dBi. 

/PATHGE/  RM  TROCOH.INC 

Effective  heiaht  of  the  bottoa  of  the  cotton  volute  in 
teters. 

/PATHGE/  R*4  TROCOH.INC 

Effective  heiaht  of  the  top  of  the  cotton  volute  in 

teters. 

/PATHGE/  R*4  TROCOH.INC 

Receiver  radio  horizon  elevation  above  sea  level  in 

teters. 

/PATH6E/  R*4  TROCOH.INC 

Transtit  radio  horizon  elevation  above  sea  level  in 

teters. 

/PATHGE/  R*4  TROCOH.INC 

Receive  antenna  heiaht  above  sea  level  in  teters. 

/PATHGE/  R*4  TROCOH.INC 

Transtit  antenna  heiaht  above  sea  level  in  teters. 

/PDATA/  1*2  PDATA.INC 

Array  of  receivind  beats  involved  in  the  correlation 
calculations. 

/PDATA/  {*2  PDATA.INC 

Array  of  receivind  beats  involved  in  the  correlation 
calculations . 

/SYSTRN/  1*2  TROCOH.INC 

Channel  cotplex-envelope  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  only 

2  =  Power  (correlation)  per  unit  delay 

spectrut  calculation 
/MC0M2/  1*2  HCOH. INC 

Clitate  class.  Default  is  0. 

0  =  NBS  TN-101  clitate 

1  =  MIL-HDRK-417  clitate 

2  =  New.  user-supplied  clitate 

/PDATA/  1*2  PDATA.INC 

Nutber  of  nedative  delay  cells  encountered  in 
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SIM  .FTN 

contains  the 

SIM  » 

Subroutine 

SINC  .FTN 

contains  the 

SINC  t 

Function 

SINT  .FTN 

contains  the 

SINT  , 

Subroutine 

PSINE  , 

Function 

STEPAB. FTN 

contains  the 

STEPAB. 

Function 

STEPY  .FTN 

contains  the 

STEPY  . 

Function 

STPPAR.FTN 

contains  the 

STPPAR. 

Subroutine 

SUBID  .FTN 

contains  the 

SUBIO  , 

Subroutine 

SUMPAG . FTN 

contains  the 

SUMPAG, 

Subroutine 

TGAIN  .FTN 

contains  the 

TGAIN  , 

Function 

TRANSF.FTN 

contains  the 

TRANSF. 

Subroutine 

TRC  .FTN 

contains  the 

AVG  , 

Subroutine 

EIGV  . 

Subroutine 

INTERD. 

Subroutine 

PAVERG. 

Subroutine 

PDF  » 

Function 

F’DFCOE » 

Subroutine 

PDFSUM. 

Function 

POUTAG. 

Subroutine 

PROFIL, 

Function 

P2INT  , 

Function 

TIMAVG. 

Subroutine 

TIMEGL » 

Subroutine 

TIMPAR. 

Function 

TRC 

Subroutine 

TRCIN  , 

Subroutine 

TXPULSf 

Function 

VARU  » 

Function 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 

following  subprograms! 
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TRLOSS.FTN  contains  the  following  subprograms* 
TRL0SS»  Subroutine 


TROPO  .FTN 

contains  the  following  subprograms* 

TROPO  > 

Main  Program 

-  ® 

UNITCV.FTN 

contains  the  following  subprograms! 

UNITCV* 

Subroutine 

UNITS  .FTN 

contains  the  following  subprograms! 

UNITS  » 

Subroutine 

XNOR  .FTN 

contains  the  following  subprograms! 

XNOR  » 

Function 

- 

A. 3 

Common  /  Include  File  Reference  Index 

/ANSWER/ 

ANSWER. INC 

/ANTENN/ 

TROCOM .INC 

/BUTPAR/ 

BUTPAR . INC 

/CON STA/ 

CONSTANTS. INC 

/CONTRL/ 

TROCOM. INC 

/CPLOSS/ 

CPL.INC 

/CURVE/ 

CURVE. INC 

/ERAB/ 

ERAD.INC 

/IODATA/ 

IODATA. INC 

/IOUT/ 

IOUT. INC 

/JAMPAR/ 

JAMPAR. INC 

/LUNS/ 

LUNS. INC 

/MC0M2/ 

MCOM.INC 

/MC0H4/ 

MCOM.INC 

/NUMPAR/ 

NUMPAR. INC 

/PATHGE/ 

TROCOM. INC 

/P DATA/ 

PDATA, INC 

/PROPAR/ 

TROCOM. INC 

/  F;  1 2  / 

RI2.INC 

•  y. 

/RZ/ 

RZ . INC 

/RZ1/ 

RZ1.INC 

■ 

/RZ4/ 

RZ4.INC 

/STPCOM/ 

STPCOM. INC 

/SUMP/ 

SUMP. INC 

/SYSF'AR/ 

SYSPAR. INC 

/SYSTRN/ 

TROCOM. INC 

/TSTAMP/ 

IODATA. INC 

/UNIT/ 

IODATA. INC 

APPENDIX  B 


CALL  CROSS-REFERENCE 


The  subprogram  cross-reference  shows  which  subprograms  call  the  described 
subprogram  and  which  subprograms  it  calls.  A  similar  list  appears  for  each 
subprogram  in  the  main  description  of  it  but  the  following  list  also  includes 
system  routines  such  as  SIN  as  well  as  statement  functions.  In  the  following 
list  MAIN  refers  to  the  driver  or  main  routine*  TROPO. 


B.l  Call  Cross-Reference  Table 
ANTGEO 

Is  called  b«  the  following  subprograms! 

INDATA 

ANTPAR 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

AL0G10  ERROR 

ANTPTR 

Is  called  by  the  following  subprograms! 

LOOPS  SIJMPAG 

ATMOS 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ERROR 

AVAIL 

Is  called  by  the  following  subprograms! 

DIFSNR 

Calls  the  following  subprgrams! 

CLIME  CLIMIL  CLIHIX  CONVOL  INTERP  SORT  SUBID 


CALL  CROSS-REFERENCE 
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AVG 

Is  called  by  the  following  subprograms! 

TRC 

Calls  the  following  subprgrams! 

PDF  YRUTIN 

AVTER 

Is  called  by  the  following  subprograms! 

D1FSNR  POWER 

A50FCC 

Is  called  by  the  following  subprograms! 

FCCHSK  FUNBW 

Calls  the  following  subprgrams! 

AL0G10  PSPEC 

BEAMPT 

Is  called  by  the  following  subprograms! 

LOOPS 

BERCAL 

Is  called  by  the  following  subprograms! 

HDTS 

Calls  the  following  subprgrams! 

AL0G10  DABS  DLOG  DL0G10  DHAX1  ERLANG  EXP 

SUBID  XNOR 

BOTAC 

Is  called  by  the  following  subprograms! 

HDTS 

Calls  the  following  subprgrams! 

JAHCOH  RJCFCN  SUBID  TSINC 

BUTFIL 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ABS  AL0610  AHAX1  BWJAH  EXP  FUNBW  FUNJAH 

F2  PEAK  PSPEC1  PSPEC2  SAMPLE  SIN  SPEC1 

SORT  SUBID 

BUJAM 

Is  called  by  the  following  subprograms! 

BUTFIL 

Calls  the  following  subprgrams! 

AL0G10  ENRGF  FUNBU  FUNJAH  RTHI  SEARCH 

CAC 

Is  called  by  the  following  subprograms! 

DINT  HATCO 


PDFCON 


FI 

SPEC2 
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Calls  the  following  subprgrams! 

ABS  DSQRT  SINC 

CAJI 

Is  called  by  the  following  subprograms. 

HATCO 

Calls  the  following  subprgrams! 

ABS  AMAX1  IABS 

CAKL 

Is  called  by  the  following  subprograms! 
hATCO 

Calls  the  following  subprgrams! 

BINT 

CHANGE 

Is  called  by  the  following  subprograms! 

MDTS  SQTHAT 

Calls  the  following  subprgrams! 

ERROR 

CHKDAT 

Is  called  by  the  following  subprograms! 

TROF'O 

Calls  the  following  subprgrams! 

ABS  ERROR 

CLIFIT 

Is  called  by  the  following  subprograms! 

CLIME  CLIHIL 

Calls  the  following  subprgrams! 

ABS  EXP  FI  F2  SUBID 

CLIME 

Is  called  by  the  following  subprograms! 

AVAIL  CLIMIX  POWER 

Calls  the  following  subprgrams! 

AL0G10  CLIFIT  DEIND  ERROR  EXP  F2 

CLIMIL 

Is  called  by  the  following  subprograms! 

AVAIL  POWER 

Calls  the  following  subprgrams! 

AL0G10  CLIFIT  ERROR  SIN  VDECAL 

CLIMIX 

Is  called  by  the  following  subprograms! 

AVAIL  POWER 

Calls  the  following  subprgrams! 

ABS  CLIME  ERFC 


SIN 


ERROR  SORT 


SUBID  VARPOL 
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CONVOL 

Is  called  by  the  following  subprograms ! 

AVAIL 

Calls  the  following  subprgrams! 

INTERP  -  • 

DEIND 

Is  called  by  the  following  subprograms ! 

CLIME 

Calls  the  following  subprgrams! 

ERROR  • 

DELO 

Is  called  by  the  following  subprograms! 

LOOPS 

Calls  the  following  subprgrams! 

COS  SIN  • 

BIFSNR 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprsrams! 

ABS  AL0G10  AVAIL  AVTER  ERFC  RGAIN  SIGN  SORT  • 

SUBID  TGAIN 

DIF1 

Is  called  by  the  following  subprograms! 

MB  IF 

Calls  the  following  subprgrams!  • 

ABS  AL0G10  ATAN  COS  SORT 

DINT 

Is  called  by  the  following  subprograms! 

CAKL  MDTS 

Calls  the  following  subprgrams!  _  * 

CAC  DFI.0AT 

EIGEN 

Is  called  by  the  following  subprograms! 

MDTS  SQTMAT 

Calls  the  following  subprgrams!  -• 

ABS  FLOAT  SORT 

EIGV 

Is  called  by  the  following  subprograms! 

TRC 

Calls  the  following  subprgrams!  - 

ELMES  HOR  ORDER  PROFIL  TXPULS 
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ELNES 

Is  called  by  the  following  subprograms' 

EIGV  NUTS 

Calls  the  following  subprgrams! 

DABS 

•*.***  ‘ 

• 

ENRGF 

Is  called  by  the  following  subprograms* 

BWJAM  FUNBU  FUN. JAM 

Calls  the  following  subprgrams! 

PSPEC 

• 

ERFC 

Is  called  by  the  following  subprograms* 

CLIMIX  DIFSNR  PAVERG  POUTAG  POWER 
Calls  the  following  subprgrams* 

EXP  SIGN 

"•  * 

ERLANG 

Is  called  by  the  following  subprograms' 

BERCAI.  PDF  POFSUM 

Calls  the  following  subprgrams' 

DABS  DEXP 

ERR  10 

Is  called  by  the  following  subprograms! 

INDATA  SECTOR  UNITS 

.  - -  S  ■ ; 

ERROR 

Is  called  by  the  following  subprograms* 

ANTPAR  ATMOS  CHANGE  CHKDAT  CLIME 

LOOPS  MATA  MDIF  MDTS  ORDER 

SUHFAG  TRANSF  TRCIN  TRLOSS  UNITCV 

CLIMIL 

RIPROF 

VARPOL 

CLIMIX 

SIGIN 

DEIND 

SRTMAT 

..  ■ 

9 

FCCMSK 

Is  called  by  the  following  subprograms’ 

FUNBU 

Calls  the  following  subprgrams* 

AL0G10  A50FCC 

9 

FFT 

Is  called  by  the  following  subprograms! 

SAMPLE 

Calls  the  following  subprgrams! 

CMPLX  COS  SIN 

-• 

FRQSEP 

Is  called  by  the  following  subprograms! 

LOOPS 

Calls  the  following  subprgrams! 

• 

%  *V'.  T*.  ■'«  •*.  •*.  •*.  '■*  '■* 

■*' 
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ABS  COS  SIN  SORT 

FUNBW 

Is  called  by  the  following  subprograms! 

BUTFIL  BWJAN 

Calls  the  following  subprdrams! 

A50FCC  ENRGF  FCCHSK  INTERB  PSPEC 

FUNJAM 

Is  called  by  the  following  subprograms! 

BUTFIL  BWJAH 

Calls  the  following  subprgrams! 

AL0G10  ENRGF  FI  F2  PSPEC  PSPJ 

GPATT 

Is  called  by  the  following  subprograms* 

RGAIN  TGAIN 

Calls  the  following  subprgrams! 

ABS  SIN 

HORANG 

Is  called  by  the  following  subprograms* 

TANGL  TRANSF 

Calls  the  following  subprgrams! 

ASIN  SIN  SORT 

HOR 

Is  called  by  the  following  subprograms* 

EIGV  HOTS 

Calls  the  following  subprgrams! 

DABS  DSIGN  DSQRT 

INDATA 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

AL0G10  AMOD  ANTGEO  ERRIO  EXP  OUTDAT  SECTOR  TRC 

UNITCV  UNITS 

INTERB 

Is  called  by  the  following  subprograms! 

FUNBW 

INTERD 

Is  called  by  the  following  subprograms! 

POUTAG  TIMAVG 

INTERP 

Is  called  by  the  following  subprograms! 

AVAIL  CONVOL 


CROSS-REFERENCE 
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Calls  the  following  subprgrams! 


INTLIM 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

AMAX1  AMINt  COS  SIN  SORT 

JAMCOM 

Is  called  by  the  following  subprograms! 

BOTAC 

Calls  the  following  subprgrams! 

ACOS  ATAN  COS  SIN  SORT  TAN  TSINC 

LOOPS 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ABS  ANTPTR  ASIN  BEANPT  COS  DELO  ERROR  EXP 

FROSEP  RGAIN  RIPROF  SIN  SINT  SORT  STFPAB  STEPY 

STPPAR  TGAIN  TRLOSS 

LTCORR 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

EXP  SIN  SORT 

TROPO 

Calls  the  following  subprgrams! 

ANTPAR  ATMOS  BUTFIL  CHKDAT  DATE  DIFSNR  INDATA  INTLIM 

LOOPS  LTCORR  MDIF  MDTS  POWER  SIJBID  SUMPAD  TIME 

TRANSF  TRCIN 

MATA 

Is  called  by  the  following  subprograms! 

MDTS  SOTMAT 

Calls  the  following  subprgrams! 

ERROR 

MATCO 

Is  called  by  the  following  subprograms! 

MDTS 

Calls  the  following  subprgrams! 

CAC  CAJI  CAKL  SUBID 

MDIF 

Is  called  by  the  following  subprograms! 

TROPO 
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Calls  the  following  subprgrams! 

ABS  AL0G10  AHIN1  COS  DIF1  ERROR  SIN  SUBID 

TANGL 

HDTS 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ACOS  AMOD  BERCAL  BOTAC  CHANGE  COS  DINT  DL0G10 

DSIN  EIGEN  ELMES  ERROR  HOR  HATA  MATCO  HINV 

ORDER  PROUT  SASEQ  SIGIN  SINT  SQTMAT  SUBID  XNOR 

NINV 

Is  called  by  the  following  subprograms! 

MDTS 

Calls  the  following  subprgrams! 

DABS 

ORDER 

Is  called  by  the  following  subprograms! 

EIGV  HDTS 

Calls  the  following  subprgrams! 

ERROR 

OUTDAT 

Is  called  by  the  following  subprograms! 

INDATA 

Calls  the  following  subprgrams! 

DATE  SUBID  TIME 

PAVERG 

Is  called  by  the  following  subprograms! 

TRC 

Calls  the  following  subprgrams! 

ERFC  EXP  SORT 

PDF 

Is  called  by  the  following  subprograms! 

AVG  PDFSUM 

Calls  the  following  subprgrams! 

ERLANG 

PDFCOE 

Is  called  by  the  following  subprograms! 

TRC 

Calls  the  following  subprgrams! 

EXP 

PDFCON 

Is  called  by  the  following  subprograms! 
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BERCAL 

Calls  the  following  subprgrams! 

DABS 

POFSUM 

Is  called  by  the  following  subprograms! 
TRC 

Calls  the  following  subprgrams! 

ERLANG  PDF 


PEAK 

Is  called  by  the  following  subprograms! 
BUTFIL 

Calls  the  following  subprgrams! 

ABS 


POUTAG 

Is  called  by  the  following  subprograms! 

TRC 

Calls  the  following  subprgrams! 

ERFC  INTERD 

POWER 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ABS  AL0G10  AVTER  CLIMF  CLIMIl  CLIMIX  ERFC  SIGN 

SORT  SUBID 

PROFIL 

Is  called  by  the  following  subprograms! 

EIGV  TINPAR  VARW 

Calls  the  following  subprgrams! 

EXP 

PROUT 

Is  called  by  the  following  subprograms! 

MDTS 

Calls  the  following  subprgrams! 

SUBID 

PSINE 

Is  called  by  the  following  subprograms! 

SINT 

Calls  the  following  subprgrams! 

DSIN  FI  F2 

PSPEC 

Is  called  by  the  following  subprograms! 

A50FCC  ENRGF  FUNBW  FUNJAH  PSPEC t  PSPEC2  PSPJ 
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Calls  the  following  subprgrams! 

SIN 

PSPEC1 

Is  called  by  the  following  subprograms! 
BUTFIL 

Calls  the  following  subprgrams! 

CHPI.X  PSPEC 

PSPEC2 

Is  called  by  the  following  subprograms! 
BUTFIL 

Calls  the  following  subprgrams! 

CMPLX  PSPEC  PSPJ 

PSPJ 

Is  called  by  the  following  subprograms! 
FUNJAM  PSPEC2 

Calls  the  following  subprgrams! 

EXP  PSPEC  SORT 

PWRSPC 

Is  called  by  the  following  subprograms! 
RJCFCN 

Calls  the  following  subprgrams! 

TF'SPEC  TPSPJ 

P2INT 

Is  called  by  the  following  subprograms! 
TIMPAR  VARU 

Calls  the  following  subprgrams! 

TXPULS 

RGAIN 

Is  called  by  the  following  subprograms! 
DIFSNR  LOOPS 

Calls  the  following  subprgrams! 

6PATT 

RIPROF 

Is  called  by  the  following  subprograms! 
LOOPS 

Calls  the  following  subprgrams! 

ERROR 

RJCFCN 

Is  called  by  the  following  subprograms! 
BOTAC 

Calls  the  following  subprgrams! 

COS  PMRSPC 
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ITMI 

Is  called  by  the  following  subprograms! 
BU  JAM  SEARCH 

Calls  the  following  subprgrams! 

ABS  SIGN 

SAMPLE 

Is  called  by  the  following  subprograms! 
BUTFIL 

Calls  the  following  subprgrams! 

FFT  REAL 

SASEO 

Is  called  by  the  following  subprograms! 
MBTS  TRCIN 

Calls  the  following  subprgrams! 

MOB 

SEARCH 

Is  called  by  the  following  subprograms! 
BUJAM 

Calls  the  following  subprgrams! 

RTMI  SIN 

SECTOR 

Is  called  by  the  following  subprograms! 
INDATA 

Calls  the  following  subprgrams! 

ERRIO 

SIGIN 

Is  called  by  the  following  subprograms! 
MDTS 

Calls  the  following  subprgrams! 

ERROR  EXP 

SIM 

Is  called  by  the  following  subprograms! 
SUMPAG 

Calls  the  following  subprgrams! 

AL0G10  IABS  SORT  SUBID 

SI  NC 

Is  called  by  the  following  subprograms! 
CAC  TSINC 

Calls  the  following  subprgrams! 

ABS  SIN 

SINT 


a 


4 
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Is  called  by  the  following  subprograms; 

LOOPS  HDTS 

Calls  the  following  subprgrams* 

IABS  PSINE  SUBIB 

SPEC 

Is  called  by  the  following  subprograms: 

SPEC l  SPEC2 

Calls  the  following  subprgrams* 

CMPLX  COS  SIN 

SPEC1 

Is  called  by  the  following  subprograms* 

BUTFIL 

Calls  the  following  subprgrams: 

SPEC 

SPEC2 

Is  called  by  the  following  subprograms*. 

BUTFIL 

Calls  the  following  subprgrams*. 

SPEC 

SQTMAT 

Is  calle!  by  the  following  subprograms*. 

MDTS 

Calls  the  following  subprgrams: 

CHANGE  EIGEN  ERROR  MATA  SORT 

STEPAB 

Is  called  by  the  following  subprograms! 

LOOPS 

STEPY 

Is  called  by  the  following  subprograms! 

LOOPS 

Calls  the  following  subprgrams*. 

SORT 

STPPAR 

Is  called  by  the  following  subprograms*. 

LOOPS 

Calls  the  following  subprgrams! 

ABS  AMIN1  SORT 

SUBID 

Is  called  by  the  following  subprograms*. 

AVAIL  BERCAI.  BOTAC  BUTFIL  CLIFIT  CLIMIX  OIFSNR  TROPO 

MATCO  MBIF  MOTS  OUTDAT  POWER  PROUT  SIM  SINT 

TRC  TRCIN 
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-  Used  but  not  changed  in  the  following  subprograms ) 

INTLIM  SfPPAR 

256)  /RZ/  R*8  RZ  *  INC 

Signal  response  after  PN  sequence  correlation. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
SINT 

-  Used  but  not  changed  in  the  following  subprograms* 

CAC  CAJI 

256)  /RZ4/  R*4  RZ4.1NC 

Impulse  response  of  cascade  of  transmitter  and 
receiver  filters*  and  cascade  of  interferer  and 
receiver  filters. 

—  Not  used  — 

256)  /RZ4/  R*4  RZ4.INC 

Autocorrelation  of  receiver  filter, 

--  Not  used 

MIN  /NUMPAR/  R*4  NUHPAR.INC 

Ratio  of  smallest  to  largest  eigenvalue  in  AN/TRC-170 
performance  calculations. 

-  Used  but  not  changed  in  the  following  subprograms) 

TRC 

NG(10)  /MC0M4/  R*4  MCOM.INC 

Interferer  elevation  angles  in  degrees.  Default  is  0. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms) 

JAhCON  MDTS  OUTDAT 

IEAN  /ANSWER/  R*4  ANSWER. INC 

Average  received  energy. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
EIGV 

-  Used  but  not  changed  in  the  following  subprograms) 

TRC 

'AR  /ANSWER/  R*4  ANSWER. INC 

Variance  of  received  energy. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
EIGV 

/CONTRL/  L*4  TROCOM.1NC 

End  of  TR0P0.DAT  file  found  if  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms) 

MAIN 

AC  /PROF'AR/  R*4  TR0C0M.INC 

Yearly  median  value  of  effective  earth  radius  factor  k 
in  kilometers.  Default  is  1.33. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
INDATA  MAIN 

-  Used  but  not  changed  in  the  following  subprograms) 

OUTDAT  POWER  SUMPAG  TRANSF 
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.T 


i 


RATE 


S(3) 


SP1 <  3) 


SP2I3) 


STSNR 


OU1DAT  POWER  SUHPAB  TRANSF 

/PATHGE/  R*4  TROCOM.INC 

Distance  from  transmitter  to  radio  horizon  in  meters. 

-  Possibly  given  a  ney  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  POWER  SUNPAG  TRANSF 

/PATHGE/  R*4  TROCOM.INC 

Receiver  distance  to  minimum  scattering  point  in 

neters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 
INTLIN  STPPAR 

/MC0M4/  R*4  MCOH.INC 

Data  rate  in  bits/second.  Default  is  &.AK&. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  DIFSNR  DINT  JAMCOM  MAIN  MOTS  OUTDAT 

SIGIN 

/NC0M4/  R*4  HCOM.INC 

Array  of  effective  obstacle  extents  along  the  great 
circle  path  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

MAIN  OUTDAT 

/SUMP/  R*4  CURVE. INC 

Lower  beam  troposcatter  signal  RMS  delay  spread  in 

nanoseconds  for  percentiles  5(>»  90  and  99. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
POWER 

/SUMP/  R*4  CURVE. INC 

Upper  beam  troposcatter  signal  RMS  delay  spread  in 

nanoseconds  for  percentiles  50>  90  and  99. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
POWER 

/SUMP/  R*4  CURVE. INC 

Standard  deviation  of  diffracted  signal  long-term  SNR 
distribution  in  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
DIFSNR 

-  Used  but  not  changed  in  the  following  subprograms! 

MDTS  SUMPAG 

/PATHGE/  R*4  TROCOM.INC 

Transmit  antenna  distance  to  minimum  scattering  point 
in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRANSF  UNITCV 


POWER 
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IFLOS( 3 ) 


IFRSL<3) 


IVIMP 


iIVTYP 


iL  <  3) 


iLR 


variability  curve.  Y0<90). 

-  Possibly  Siven  a  new  value  in  the  following  subprograms 
CLIHIL  INDATA 

-  Used  but  not  changed  in  the  following  subprograms* 
CLIFIT  CLIHE  OUTDAT 

/SUMP/  R*4  CURVE .INC 

Median  diffraction  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
DIFSNR 

-  Used  but  not  changed  in  the  following  subprograms? 
SUMPAG 

/SUMP/  R*4  CURVE. INC 

Median  diffraction  signal  RSL  in  dBm  for  each  value  in 
ERFAC  distribution. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
DIFSNR 

-  Used  but  not  changed  in  the  following  subprograms! 
SUMPAG 

/ANSWER/  R*4  ANSWER. INC 

Ratio  of  sauare  of  mean  signal  energy  to  variance  for 
AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
EIGV 

/MC0M2/  1*2  MCOM.INC 

Diversity  configuration  indicator.  Default  is  0. 

0=2  receive  antennas.  2S  2S/2F  2S/2A  2S/2A/2F 

1=1  receive  antenna}  2A  2F  2F/2A 

2=2  transmit. 

2  receive  antennas}  2S/7P  2S/2P/2A 

3  =  Not  used 

4  =  User  supplied  parameters 

S  =  Space  F  =  Freouency  A  =  Angle  P  =  Polarization 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 
ANTGEO  BERCAi.  CAC  LTCORR  MATCO  MDTS  OUTDAT 
SIM  SUMPAG 

/MC0M4/  R*4  MCOM.INC 

Array  containing  distance  from  each  obstacle  to 

transmitter  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 
DIFSNR  MAIN  OUTDAT 

/PATHGE/  R*4  TR0C0M.INC 

Distance  from  receiver  to  radio  horizon  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 
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DEG 


DEL 


DELH 


DELPB 


DELPBZ 


DELREF 


DELTAR(NRMX) 


DELTAT (NTMX) 


DEMIN 


/UNIT/  R*4  IODATA. INC 

Strind  'ded  '  for  units  output. 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 
OUTDAT  UNITS 

/SUMP/  R*4  CURVE. INC 

Diffraction  path  delay  relative  to  a  straiaht  line 

path  in  seconds. 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 

MAIN  MDTS  SUMPAG 

/PROPAR/  R*4  TROCOM. INC 

Spacina  of  CN2  saaples  in  aeters. 

-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 
INDATA  UNITCV 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 
OUTDAT  RIPROF 

/PDATA/  R*4  PDATA.INC 

Resolution  of  a  delay  cell  in  seconds. 

-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 
LOOPS 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 

MAIN  MDIF  POWER  SIM  SUMPAG 

/RZ1/  R*4 

Resolution  of  a  delay  cell  in  seconds.  Same  as  DELPB 
in  /PDATA/. 

-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 
MAIN 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 

CAC  DINT 

/PDATA/  R*4  PDATA.INC 

Miniaua  delay  throuah  the  lowest  scatterina  point 

(relative  to  straiaht  line  delay)  in  seconds. 

-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 
MDIF 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 

LOOPS  POWER 

/ANTENN/  R*4  TROCOM, INC 

3dB  half-beaawidth  of  each  receive  antenna  in  radians. 


-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 


MAIN 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 

INTLIM  POWER  STPPAR  TRANSF  TRI.OSS 
/ANTENN/  R*4  TROCOM. INC 

3dB  half-beaawidth  of  each  transait  antenna  in 


radians, 

-  Possibly  aiven  a  new  value  in  the  followina  subproaraas 
MAIN 

-  Used  but  not  chanaed  in  the  followina  subproaraas! 
INTLIM  POWER  STPPAR  TRANSF  TRLOSS 

/CURVE/  R*4  CURVE. INC 

User  supplied  ainiaa  of  the  90th  percentile 
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CODE 

COEFF 

CONJAH 

CORRLT 

CPL(6) 

D 

DALT 

DE 


-  Used  but  not  changed  in  the  following  subprograms* 
OUTDAT  RIPROF 

/MC0M4/  L*4  MCOM.INC 

Fled  for  coding. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

NDTS 

/ANSWER/  R*8  ANSWER. INC 

Partial  fraction  expansion  coefficients  for 

calculation  of  AN/TRC-170  outage  probability. 

-  Used  but  not  changed  in  the  following  subprograms! 

AVG  TRC 

/JAMPAR/  R*4  JAMPAR.INC 

Interference  constant. 

-  Possibly  siven  a  new  value  in  the  following  subprograms 
BUTFIL  8WJAM 

-  Used  but  not  changed  in  the  following  subprograms! 
FUNJAM 

/CPLOSS/  R*4  CPL.INC 

Correlation  coefficient  for  long  term  variability  of 

lower  and  upper  beams. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
LTCORR 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER 

/CPLOSS/  R*4  CPL.INC 

Aperture-to-medium  coupling  loss  array  in  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRI.OSS 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER 

/PATHGE/  R*4  TROCOM.INC 

Great  circle  distance  between  transmitter  and  receiver 
measured  at  sea  level  in  meters. 

-  Possibly  Siven  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

ATMOS  DIFSNR  INTLIM  LOOPS  LTCORR  MAIN  OUTDAT 
SUMPAG  TRANSF  TRLOSS 

/RZ4/  R#4  RZ4.INC 

Sampling  interval. 

-  Not  used  -- 

/SUMP/  R«4  CURVE. INC 

Effective  distance  for  troeoscatter  path  in 
Kilometers. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
POWER 

-  Used  but  not  changed  in  the  following  subprograms! 
SUMPAG 
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CH6HR 


CHGHRE 


CHGHT 


CHGHTE 


CMTPFT 


CMTPMI 


CMTPNM 


CN2<NPR0F ) 


normalized  to  signaling  interval  duration* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC  TXPULS 

/CONSTA/  R*4  CONSTANTS. INC 

1  X  10**3  =  1000, 

-  Used  but  not  changed  in  the  following  subprograms! 

UNITCV 

/IODATA/  L*4  IODATA. INC 

HR  set  to  AR< 1 )  if  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT 

/IODATA/  L*4  IODATA, INC 

HRE  set  to  HR  if  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT 

/IODATA/  L*4  IODATA. INC 

HT  set  to  AT( 1 )  if  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INOATA 

Used  but  not  changed  in  the  following  subprograms! 

OUTDAT 

/IODATA/  L*4  IODATA. INC 

HTE  set  to  HT  if  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INfiATA 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT 

/CONSTA/  R*4  C0NSTAN1S.INC 

Meters  per  foot  =  0.J048. 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTGEO  INDATA  UNITCV 

/CONSTA/  R*4  CONSTANTS. INC 

Meters  per  statute  mile  =  1609,344 

-  Used  but  not  changed  in  the  following  subprograms! 

UNITCV 

/CONSTA/  R*4  CONSTANTS. INC 

Meters  per  nautical  mile  =  1852. 

-  Used  but  not  changed  in  the  following  subprograms! 

UNITCV 

/PROPAR/  R*4  TROCOH. INC 

The  atmospheric  structure  constant  height  profile  in 

meters  to  the  -2/3  power. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 
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BER(3)  /ERAD/  R*4  ERAD, INC 

Bit  error  rate  thresholds  of  interest.  Set  to  IE-3* 

IE-4  and  1E-S  in  data  statement. 

-  Used  but  not  changed  in  the  following  subprograms! 

BERCAL  PROUT  SUHPAG 

BETAO  /PATHGE/  R*4  TROCOM.INC 

Minimum  receive  antenna  elevation  angle  measured  from 

receiver-to-transmitter  line  to  receiver  horizon  line 

in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms. 
TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

INTLIN  LOOPS  POWER  SUHPAG  TRLOSS 

BETA1  /PATHGE/  R*4  TROCOM.INC 

Maximum  receive  antenna  elevation  angle  measured  from 
receiver-to-transmitter  line  to  top  of  common  volume 
in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INTLIM  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS 

B0UTL(3»4)  /ERAD/  R«4  ERAD. INC 

Cumulative  outage  probability  for  each  diversity 
configuration  and  error  rate  threshold  (averaged 
over  multipath  distribution*  if  any). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
PROUT 

BW  /SYSTRN/  R*4  TROCOM.INC 

Bandwidth  in  Hertz.  Default  is  7  MHz. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

JAMCOM  LOOPS  MAIN  OUTDAT  POWER  SUHPAG 

C  /PDATA/  R*4  PDATA. INC 

Proportionality  constant  in  troposcatter  path  loss 
calculation. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER  SUHPAG 

CO  /CONSTA/  R*4  C0NS1 ANTS, INC 

Free  space  velocity  of  radio  waves  =  2.998E8  m/sec. 

-  Used  but  not  changed  in  the  following  subprograms! 

INDATA  LOOPS  HD(F  POWER 

CDEGR  /CONSTA/  R*4  CONSTANTS .INC 

Radians  per  degree  =  0.017453293, 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  UNITCV 

CDUR  /SYSPAR/  R*4  SYSPAR.INC 

Duration  of  transmitted  pulse  for  AN/TRC-170 
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AR(NRHX) 


ASNR 


AT(NTHX) 


ATTEN 


AVERX 


AVETX 


BEAK 


MDTS 

-  Used  but  not  changed  in  the  following  subprograms! 

BERCAL 

/ANTENN/  R*4  TROCOH.INC 

Array  of  receiver  antenna  diaaeters  in  meters.  AR<1) 
is  eouivalent  to  RDIAN  in  the  input  file* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

AN1GE0  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTPAR  CHKDAT  LOOPS  OUTDAT  RGAIN  SUHPAG 

/SYSPAR/  R*4  SYSPAR  *  INC 

Yearly  aedian  value  of  troposcatter  short-tera  average 
SNR.  ie»  Eb/Nof  in  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/ANTENN/  RM  TROCOH.INC 

Array  of  transaitter  antenna  diaaeters  in  aeters. 

AT < 1 )  is  eouivalent  to  TDIAM  in  the  input  file. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms: 

ANTPAR  CHKDAT  OUTDAT  SUHPAG  TGAIN 

/HC0M4/  R*4  HCOH.INC 

Ratio  of  interferer  signal  amplitude  on  antenna 

2  to  that  at  antenna  1.  Set  to  1  internally. 

-  Used  but  not  changed  in  the  following  subprograms'. 

JAMCOH 

/HC0N4/  RM  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 

receive  site  and  radio  horizon.  in  aeters. 

-  Possibly  given  a  new  value  in  the  following  subprograms* 

DIFSNR  INDATA  POWER  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms. 

OUTDAT 

/HC0H4/  R*4  HCOH.INC 

Average  terrain  elevation  above  sea  level  between 

transmit  site  and  radio  horizon,  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms'. 

DIFSNR  INDATA  POWER  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms'. 

OUTDAT 

/STPCOH/  R*4  STPCOH. INC 

Parameter  for  determining  azimuth  and  elevation  angle 
step  size  in  common  volume  integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms: 

STEPAB 
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A  /PATHGE/  R*4  TROCOH.INC 

Effective  earth  radius  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms 

INDATA  JAHCOH 

-  Used  but  not  changed  in  the  following  subprograms* 

INTLIM  LOOPS  LTCORR  MAIN  TRANSP 

AO  /CONSTA/  R*4  CONSTANTS . INC 

Radius  of  the  earth  in  meters  =  6367650. 

-  Used  but  not  changed  in  the  following  subprograms? 

INDATA  MDIF  TRANSF 

AA  /PROPAR/  R*4  TROCOH.INC 

Atmospheric  absorption  loss  in  dD. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
ATMOS 

-  Used  but  not  changed  in  the  following  subprograms? 

MAIN  POWER  SUMPAG 

ABEL<4>  /ERAD/  R*4  ERAD.1NC 

Cumulative  block  error  probability  for  each  diversity 
configuration  as  specified  by  DIVTYP  (averaged  over 
multipath  distribution*  if  any). 

-  Possibly  given  a  new  value  in  the  following  subprograms 
PROUT 

ACALC  /IODATA/  L*4  IOBATA.INC 

TRUE  if  the  angles  PSITEO  and  PSIREO  are  calculated 
rather  than  read  in. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms? 
ANTDEO  OUTDAT 

ALFAO  /PATHGE/  R*4  TROCOH.INC 

Minimum  transmit  antenna  elevation  angle  measured  from 
transmitter-to-receiver  line  to  transmit  horizon  line 
in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms? 
INTLIM  LOOPS  LTCORR  POWER  SUMPAG  TRLOSS 

ALFA1  /PATHGE/  R*4  TROCOH.INC 

Maximum  transmit  antenna  elevation  angle  measured  from 
transmitter-to-receiver  line  to  top  of  common  volume 
in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INTLIM  IJNITCV 

-  Used  but  not  changed  in  the  following  subprograms? 

LOOPS 

APOW  /MC0H4/  R*4  HCOH.INC 

Angle  diversity  sauint  loss  as  a  ratio. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
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IBM  version  has  been  preprocessed  to  do  the  including  of  these  files  that  the 
PDF'  compiler  will  do  automatically. 

The  description  gives  the  definition  of  the  variable  as  well  as  the 

maximum*  default  value*  and  units  where  appropriate.  In  the  ease  of  flags  all 
possible  legal  values  are  described.  Note*  the  units  listed  are  those  used  in 
TROPO  for  calculations  and  not  necessarily  those  used  for  input  or  output. 

The  last  two  sections  describe  where  the  variable  is  given  a  new  value  and 
where  it  is  otherwise  used.  These  sets  are  mutual Ly  exclusive.  A  subprogram  is 
included  in  the  first  list  if  the  variable  is  used  in  one  or  more  of  the 

following: 

1)  on  the  left  aide  of  an  arithmetic  assignment 

2)  data  statement 

3)  parameter  statement  (meaningful  only  in  PDP  version) 

4)  READ  or  ACCEPT  statement 

In  addition*  it  may  be  used  in  one  or  both  of  the  following  ways*  but  it  MUST 
have  been  used  in  at  least  one  of  the  above.  On  the  other  hand*  a  subprogram  is 
included  in  the  second  list  if  it  is  not  used  in  one  of  the  above  but  is  used  in 
one  of  the  following: 

1)  on  the  right  side  of  an  arithmetic  assignment 

2)  WRITE  or  TYPE  statement 

Both  lists  were  generated  by  a  DECUS  (Digital  Eouipment  Corporation  User's 
Group)  supplied  program.  Its  limitations  are  that  neither  list  includes: 

1)  use  as  arguments  in  subprogram  calls 

2)  use  in  any  statement  when  the  variable  is 
eouivalenced  to  a  common  variable.  The  variables  in 
common  /RZ4/  are  an  example  of  this. 

3)  in  the  case  of  parameters*  use  as  a  dimension  of  an 
array. 

For  these  reasons*  some  variables  are  listed  as  'Not  used'.  They  are  actually 
used  in  one  or  more  of  the  limitations  Just  listed.  Additionally*  any  variable 
apparently  not  set  in  any  routine  has  either  been  used  as  an  argument  or  has 
been  set  in  the  block  data  section  (file  DATAINIT.FTN) . 
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The  dictionary  describes  all  variables  in  common.  Each  description  is  of 
the  form* 

<variable  name>  /<common  name>/  type  Cinclude  file> 

Description# 

-  Possibly  given  a  new  value  in  the  following  subprograms' 

(List  of  subprograms) 

-  Used  but  not  changed  in  the  following  subprograms* 

(List  of  subprograms) 


The  name  is  the  common  variable  or  parameter  name#  If  the  variable  is  a 
matrix*  the  name  is  followed  by  dimensions.  In  some  cases  these  dimensions  are 
parameters.  When  the  PDP  compiler  finds  such  a  variable  in  the  code  it  replaces 
the  parameters  with  their  actual  numeric  values  (as  given  in  the  file 
TROPAR.INC).  For  the  IBM  version*  the  code  has  already  been  preprocessed  by 
SIGNATRQN  to  use  the  numeric  values  so  the  actual  commons  will  not  show  the 
parameters  as  dimensions  but  their  values. 

The  common  name  is  the  name  of  the  common  the  variable  is  contained  in. 
For  parameters*  the  word  'Parameter'  is  in  this  spot  since  these  are  not  in  a 
common. 

The  type*  for  variables  and  parameters*  is  given  as  three  characters* 


L*1 

1 

byte 

LOGICAL  (BYTE  in  the  PDP  version) 

L*4 

4 

byte 

LOGICAL 

1*2 

2 

byte 

INTEGER 

1*4 

4 

byte 

INTEGER 

R*4 

4 

byte 

REAL 

R*8 

8 

byte 

REAL 

C*8 

8 

byte 

COMPLEX 

The  include  file  name  is  only  meaningful  to  the  PDP  users.  It  is  the  name 
of  the  file  containing  the  common  with  the  variable  being  described.  Again*  the 


CALL  CROSS-REFERENCE 


Page 


CLIHIX 

Calls  the  following  subprgraas? 

ERROR  EXP  FI  F2 

YARN 

Is  called  by  the  following  subprograas 
TRC 

Calls  the  following  subprgraasi 
PROFIL  P2INT 

VDECAL 

Is  called  by  the  following  subprograas 
CLIHIL 

Calls  the  following  subprgraas! 

EXP  F2 

XNOR 

Is  called  by  the  following  subprograas 
BERCAL  HD  TS  TRC 

Calls  the  following  subprgraas! 

DABS  DEXP  DSQRT 

YINT 

Is  called  by  the  following  subprograas 
CLIHE 


SORT 
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Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ABS  ASIN  ATAN  COS  ERROR  HORANG  SIN  SORT 

TRC 

Is  called  by  the  following  subprograms! 

I NO AT A  TRCIN 

Calls  the  following  subprgrams! 

ABS  AL0610  AVG  EI6U  PAVERG  PDFCOE  PDFSUH  POUTAG 

SORT  SUBIO  TINAVG  TIHEQL  TIMPAR  VARM  XNOR 

TRCIN 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ALOGIO  ERROR  SASEQ  SUBIO  TRC 

TRLOSS 

Is  called  by  the  following  subprograms! 

LOOPS 

Calls  the  following  subprgrams! 

ABS  ALOGIO  AMAXl  ERROR 

TSINC 

Is  called  by  the  following  subprograms! 

BOTAC  JAHCOM 

Calls  the  following  subprgrams! 

DABS  SINC 

TXPULS 

Is  called  by  the  following  subprograms! 

EIGV  P2INT 

Calls  the  following  subprgrams! 

SORT 

UNITCV 

Is  called  by  the  following  subprograms! 

INDATA  SUHPAG 

Calls  the  following  subprgrams! 

ERROR 

UNITS 

Is  called  by  the  following  subprograms! 

INDATA 

Calls  the  following  subprgrams! 

ANOD  ERRIO  • 

VARPOL 

Is  called  by  the  following  subprograms! 
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SUNPAG 

Is  called  by  the  following  subprograms! 

TROPO 

Calls  the  following  subprgrams! 

ABS  AL0G10  ANTPTR  ERROR  SIH  UNITCV 

TANGL 

Is  called  by  the  following  subprograms' 

MBIF 

Calls  the  following  subprgrams! 

ABS  ASIN  COS  HORANG  SIN  SORT 

TGAIN 

Is  called  by  the  following  subprograms' 

DIFSNR  LOOPS 

Calls  the  following  subprgrams! 

GPATT 

TIHAVG 

Is  called  by  the  following  subprograms' 

TRC 

Calls  the  following  subprgrams! 

EXP  INTERD 

TINEQL 

Is  called  by  the  following  subprograms! 

TRC 

Calls  ne  following  subprgrams! 

ABS  TINPAR 

TIHPAR 

Is  called  by  the  following  subprograms! 

TINEQL  TRC 

Calls  the  following  subprgrams! 

PROFIL  P2INT 

TPSF'EC 

Is  called  by  the  following  subprograms! 

PURSPC  TPSPJ 

Calls  the  following  subprgrams! 


TPSPJ 

Is  called  by  the  following  subprograms! 
PWRSPC 

Calls  the  following  subprgrams! 

EXP  S9RT  TPSPEC 


TRANSF 
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ERR  /CONTROL/  R*4  TROCOM.INC 

Common  volume  integration  resolution.  Default  is  .001. 

-  Possibly  given  3  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

INTLIM  LOOPS  OUTDAT  SfPPAR  SUMPAG 

F  /SYSTRN/  R*4  TROCOM.INC 

Operating  freouency  in  Hz.  Model  is  accurate  between 
100MHz  and  IOGH2. 

-  F:  .sibly  given  a  new  value  in  the  following  subprograms* 
INDATA  IJNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTGEO  ATMOS  DIFSNR  MAIN  OUTDAT  POMER  SUMPAG 

F50L  /BUTPAR/  R*4  BUTPAR.INC 

50d8  normalized  corner  freouency. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
FUNBW 

-  Used  but  not  changed  in  the  following  subprograms! 

FCCHSK 

FCJ  /  JAMF'AR/  R*4  JAMPAR.INC 

Normalized  3dB  cut-off  freouency  of  QPSK  interference 
filter. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUJAM 

-  Used  but  not  changed  in  the  following  subprograms! 

PSPJ  TPSPJ 

FCON  /BUTPAR/  R*4  BUTPAR.INC 

Ratio  of  bandwidth  to  twice  the  symbol  rate. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUTFIL  BUJAM 

Used  but  not  changed  in  the  following  subprograms! 

FUNBW 

FCRX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouency  of  receiver  filter. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

BUTFIL  BUJAM  INOATA 

-  Used  but  not  changed  in  the  following  subprograms! 

PSPECt  PSPEC2  PWRSPC  RJCFCN  SPEC1 

FCTX  /BUTPAR/  R*4  BUTPAR.INC 

Normalized  3dB  cut-off  freouency  of  transmitter 
filter. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

BUTFIL  FUNBW  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

A50FCC  BUJAM  PSPJ  SPEC1  SPECS  TPSPJ 

FILLER(88)  /RZ4/  R*4  RZ4.INC 

Dummy  array  to  align  commons, 

—  Not  used  — 

FJSEPN  /JAMPAR/  R*4  JAMPAR.INC 

Normalized  freouency  separation  between  the 
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FMI 


F0UTL(3»4) 


FSEP 


FT 


GHZ 


GPF 


GRDB(NRMX) 


GTBB(NTHX) 


interference  signal  and  the  desired  signal. 

-  Possibly  given  a  new  value  in  the  following  subprograms*. 
BUTFIL  RJCFCN 

-  Used  but  not  changed  in  the  following  subprograms* 

FUNJAM  PSPEC2  PWRSPC 

/JAMPAR/  R*4  JAMPAR . INC 

Modulation  index  for  FDM/FM  interference. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUJAM 

-  Used  but  not  changed  in  the  following  subprograms! 

PSPJ  TPSPJ 

/ERAD/  R*4  ERAD.INC 

Cumulative  fade  outage  per  call  minute  for  each 
diversity  configuration  and  error  rate  threshold 
(averaged  over  multipath  distr ibution»  if  any). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
PROUT 

/PDATA/  R*4  PDATA. INC 

Freauency  separation  for  uncorrelated  freauency 

diversity  in  Hz. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

SUMPAG 

/UNIT/  R*4  IQDATA.INC 

String  'ft  '  for  units  output. 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  UNITS 

/UNIT/  R*4  IODATA. INC 

String  'GHz  '  for  units  output. 

-  Used  but  not  changed  in  the  following  subprograms! 

INDATA  OUTDAT  UNITS 

/CURVE/  R*4  CURVE. INC 

Freauency  correction  factor  for  user  supplied  90th 

percentile  variability  curve.  Default  is  1. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

CLIME 

/ANTENN/  R*4  TR0C0M.INC 

Gain  of  each  receive  antenna  in  dBi. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
MAIN 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  POWER  SUMPAG 

/ANTENN/  R*4  TR0C0M.INC 

Gain  of  each  transmit  antenna  in  dBi. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
MAIN 

-  Used  but  not  changed  in  the  following  subprograms! 
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HCOH 


HHIGH 


HI (155) 


HL(3) 


HLAV(3) 


DIFSNR  POWER  SUHPAG 

/PATHGE/  Rt4  TROCOH.INC 

Effective  height  of  the  bottok  of  the  cokkon  voluke  in 
keters. 

-  Possibly  given  a  neu  value  in  the  following  subprograks! 

LOOPS  TRANSF  UNITCV  • 

-  Used  but  not  changed  in  the  following  subprograks! 

LTCORR  SUHPAG 

/PATHGE/  R*4  TROCOH.INC 

Effective  height  of  the  top  of  the  cokkon  voluke  in 

keters. 

-  Possibly  given  a  new  value  in  the  following  subprograks!  * 

INTLIH  UNITCV 

-  Used  but  not  changed  in  the  following  subprograks! 

SUHPAG 

/MC0M4/  R*4  HCOH.INC 

Arras  containing  NPHd)  evenly-spaced  terrain 

elevation  data  (in  keters)  between  transkitter  and 
first  obstacle  followed  by  NPH<2)  evenly-spaced 
terrain  elevation  data  between  first  and  second 
obstacle!  etc.»  ending  with  NPH(N0BS+1)  evenls-spaced 
terrain  elevation  data  between  last  obstacle  and 
receive  site.  The  data  should  be  selected  such  that: 

HI(1)  =  Terrain  elevation  above  sea  level  at 
transkit  site  (HTO). 

HKNPM(I))  =  HI  (NPH( I )  +  1 )  =  Elevation  of  Ith 
obstacle  above  sea  level  (HL(I)). 

HI <NPH(N0BS+1 ) )  =  Terrain  elevation  above  sea 
level  at  receive  site  (HRO). 

In  MDTS»  HI  is  used  as  work,  space.  It  is  eouivalenced 
to  local  arrays. 

-  Possibly  given  a  new  value  in  the  following  subprograks. 

INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograks* 

DIFSNR  OUTDAT  POWER 

/HC0H4/  R*4  HCOH.INC 

Arras  containing  elevation  of  each  obstacle  above  sea 
level  in  keters.  Hl.d)  is  elevation  of  transkitter 
radio  horizon  HLT.  HL(NOBS)  is  elevation  of  receiver 
radio  horizon  HLR. 

-  Possibly  given  a  new  value  in  the  following  subprograks? 

INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograks: 

DIFSNR  HAIN  OUTDAT 

/HC0H4/  R*4  HCOH.INC 

Array  containing  average  terrain  elevation  at  each 
diffraction  point  in  keters. 

-  Possibly  given  a  new  value  in  the  following  subprograks' 

INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograks! 
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DIFSNR  OUTDAT 

HLEF<3>  /MCOM4/  R*4  MCOM.INC 

Array  containing  effective  height  of  obstacles  above 
average  terrain  elevation  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  OUTDAT 

HLOW  /PROPAR/  R*4  TROCOM.INC 

Lowest  height  above  sea  level  at  which  CN2  is 
specified  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INOATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  OUTDAT 

HLR  /PATHGE/  R*4  TROCOM.INC 

Receiver  radio  horizon  elevation  above  sea  level  in 
meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  SUMPAG 

HLT  /PATHGE/  R*4  TROCOH.INC 

Transmit  radio  horizon  elevation  above  sea  level  in 
meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  SUMPAG 

HRE  /HC0M4/  R*4  MCOM.INC 

Effective  receiver  antenna  height  above  average 
terrain  elevation  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  POWER  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR 

HRN  /PATHGE/  R*4  TROCOM.INC 

Receive  antenna  height  above  sea  level  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INOATA  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  INTLIM  JAHCON  LTCORR  MAIN  OUTDAT  POWER  SUMPAG 
HTE  /MC0M4/  R*4  MCOM.INC 

Effective  transmitter  antenna  height  above  average 
terrain  elevation  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  POWER  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  OUTDAT 

HTN  /PATHGE/  R*4  TROCOM.INC 
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IlCORR(NCORhX) 


I2C0RR(NC0RMX ) 


I BLOSS ( 6 ) 


IBR(NRNX,NRHX) 


IBM 


ICHIP(30> 


Transmit  antenna  height  above  sea  level  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
I ND AT A  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms? 

DIFSNR  INTLIN  LOOPS  MAIN  OUTDAT  POWER  SUNPAG 

/PDATA/  1*2  PDATA . INC 

Array  of  receiving  beats  involved  in  the  correlation 
calculations. 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms? 

SIN  SUNPAG 

/PDATA/  1*2  PDATA. INC 

Array  of  receiving  beams  involved  in  the  correlation 
calculations . 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms? 

SIN  SUNPAG 

/CPLOSS/  1*2  CPL.INC 

Beam  number  corresponding  to  CPL(I). 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms? 

POWER 

/SYSTRN/  1*2  TROCON. INC 

Channel  complex-envelope  correlation  and 
cross-correlation  calculation  indicator  array. 

0  =  No  calculation 

1  =  Power  (correlation)  calculation  only 

2  =  Power  (correlation)  per  unit  delay 

spectrum  calculation 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
AN! GEO  INDATA 

-  Used  but  not  changed  in  the  following  subprograms? 

CHKDAT  LOOPS  OUTDAT  STPPAR  SUNPAG 

/NC0N2/  1*2  NCON.INC 

Switch  indicating  type  of  RF  bandwidth  constraint  to 
be  used  on  desired  signal.  Default  is  0. 

0  =  No  RF  filtering 

1  =  Filter  determined  from  99Z  bandwidth  constraint 

2  =  Filter  chosen  to  meet  FCC  Nask.  (FCC-19311) 

3  =  Filters  are  user  specified 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms? 

BOTAC  NAIN  NDTS  OUTDAT  8IGIN 

/SYSPAR/  1*2  SYSPAR .INC 

PN  seouence  for  spectrum  spreading  when  the  data 

rate  is  much  smaller  than  the  bandwidth. 
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ICLIME 


ICON 


ICORR 


ICPL 


IDM 


IFILE 


IFILRX 


-  Possibly  given  a  new  value  in  the  following  subprograms; 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms* 

TRC  TXPULS 

/MC0M2/  1*2  HCOH.INC 

Climate  class.  Default  is  0. 

0  =  NBS  TN-101  climate 

1  =  HlL-HDBK-417  climate 

2  =  New*  user-supplied  climate 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms; 

OUTDAT  SUHPAG 

/BUTPAR/  1*2  BUTPAR, INC 

1  =  99Z  bandwidth  constraint 

2  =  FCC-13911  bandwidth  constraint 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUTFIL  BWJAH 

-  Used  but  not  changed  in  the  following  subprograms! 

FUNBW 

/MC0M2/  1*2  HCOH.INC 

Hultipath  profile  correlation  indicator.  Default 

is  2. 

0  *  Profile  of  the  form  X  *  exp(~A*X)  --  used  for 
debugging 

1  =  Computed  multipath  profiler  no  beam  correlation 

2  =  Computed  multipath  profile!  beam  correlation. 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  DINT  HD  TS  SIGIN 

/CPLOSS/  1*2  CPL.INC 

Coupling  loss  count. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER  TRI.OSS 

/UNIT/  1*2  IODATA . INC 

0  if  degrees*  1  if  milliradians. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

UN1TCV 

/HC0H2/  1*2  HCOH.INC 

Pointer  to  multipath  profile. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
HATCO  HDTS 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC 

/BUTPAR/  1*2  BUTPAR. INC 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  means 
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IFILTX 


IME 


IMG 


INEG 


INS 


filter  is  3  Butterworth  cascaded  with  3 
rectangular  impulse  response  filter  of 
duration  eausl  to  symbol  duration. 

1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter.  Also  means 

filter  is  a  Butterworth. 


-  Possibly  given  3  new  value  in  the  following  subprograms! 
BUTFIL  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

FUNJAM  PSPECt  PSPEC2  PWRSPC  SPEC1 

/BUTPAR/  1*2  BUTPAR, INC 

Transmitter  filter  indicator. 

0  =  MD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eaual  to  half  symbol  duration. 

2  =  (not  allowed) 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUTFIL  INfiATA 

-  Used  but  not  changed  in  the  following  subprograms! 

A50FCC  BUJAM  FUNBU  PSPJ  SPEC1  SPEC2  TPSPJ 

/UNIT/  1*2  IODATA, INC 

0  if  metric  units?  1  if  English. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

UNITCV 

/UNIT/  1*2  IODATA. INC 

0  if  HHz?  1  if  GHz. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 


UNITCV 

/PBATA/  1*2  PDATA. INC 

Number  of  negative  delay  cells  encountered  in 

troposcatter  integration.  It  is  an  error  if  INEG 


>  0. 


-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

SUMPAG 

/UNIT/  1*2 

0  if  nautical  miles?  1 

-  Possibly  given  a  new 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

UNITCV 


IODATA. INC 
if  statute  miles. 

value  in  the  following  subprograms! 
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/CONTRL/  1*2  TRQCOM.INC 

Number  of  output  files  opened. 

-  Possible  aiven  a  new  value  in  the  following  subprograms! 
INDATA  SUNPA6 

/IOIJT/  1*2  TOUT.  INC 

Switch  for  calculation  of  performance  of  AN/TRC-170. 

0  =  ABER  and  outade  probability 

1  *  ABER  (averade  bit  error  rate)  only 

2  *  Outade  probability  only 
Set  to  0  internally. 

-  Possibly  aiven  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/IOUT/  1*2  IOUT.INC 

Switch  for  calculation  of  performance  of  AN/TRC-170. 

0  =  Short  term  performance  assuming  various 
sampling  times. 

1  =  Short  term  performance  assuming  Gaussian 

timing  Jitter. 

2  =  Yearly  average  performance  assuming 

Gaussian  timing  Jitter. 

Set  to  2  internally. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/ANTENN/  1*2  TROCOH.INC 

Array  of  receiver  antenna  polarizations. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA 

-  Used  but  rot  changed  in  the  following  subprograms! 

LOOPS  OUTDAT  STPPAR  SUHPAG 

/ANTENN/  1*2  TROCOM.INC 

Array  of  transmitter  antenna  polarizations. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  OUTDAT  SUNPAG 

/PDATA/  1*2  PDATA.INC 

Number  of  delay  cells  exceeding  the  last  allocated 

array  element.  This  number  should  be  zero  or  small. 

IPOS  >  0  is  not  a  serious  error  unless  the  delay 
profile  calculated  has  a  clear  peak  in  the  last  delay 
cell . 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

SUHPAG 

/PDATA/  1*2  PDATA.INC 
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0  if  the  Ith  correlation  not  wanted*  1  if  wanted* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

SIN  SUNPA6 

IPROFL  /SYSPAR/  1*2  SYSPAR.INC 

Parameter  that  indicates  whether  troposcatter  power 
per  unit  delay  profile  of  the  form  X  exp  (-AtX)  is  to 
be  used  (IPROFL  =  0)  or  not.  Set  to  zero  in  TRCIN. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

EIGV  TIHPAR  TRC  VARW 

IPULS  /SYSPAR/  1*2  SYSPAR.INC 

Switch  to  indicate  whether  pulse  shape  at  input  of  the 
AN/TRC-170  detector  includes  the  effects  of  RF  filters 
(IPULS  =  2)  or  not  (IPULS  =  0  or  1).  Set  to  2 
interr3lly.  If  IBU  is  0i  set  to  1. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

P2INT  TRC  TXPULS 

IRF  /PATHGE/  1*2  TRQC0M.1NC 

Parameter  which  indicates  whether  reference  horizon 
elevation  angles  have  been  calculated  (IRF  *  1)  in 
previous  run.  It  has  meaning  only  when  ITOFF  =  3. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRANSF 

IRSN  /NUNPAR/  1*2  NUNPAR.INC 

Number  of  values  in  SNR  array  RSNRSN<30).  Used  to 
calculate  ISI  statistics  for  AN/TRC-170.  Initially 
set  to  30, 

-  Used  but  not  changed  in  the  following  subprograms! 

POUT AG 

ISN  /IOUT/  1*2  I OUT • INC 

Number  of  SNR  values  for  which  short-term  performance 
of  AN/TRC-170  is  to  be  performed.  Set  to  17. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

IT  /IOUT/  1*2  IOUT. INC 

Number  of  different  sampling  times  to  be  used  in 
calculation  of  AN/TRC-170  short  term  performance. 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

ITER  /PDATA/  1*4  PDATA.INC 

Number  of  integration  cells  in  the  common  volume 
integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 


TRIABLE 


[TOFF 


JBW 


JFILT 


JPOW 


JQ2M 
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LOOPS 

-  Used  but  not  changed  in  the  following  subprograms* 

POWER  SUMPAG 

/PROPAR/  1*2  TROCOM. INC 

Control  indicator  for  entry  or  calculation  of 

transmit/receive  radio  horizon  angles  THET  and  THER. 

Values  have  following  meanings* 

0  =  Use  input  THET»  THER  as  reference  and 
actual  horizon  (default)* 

1  =  Calculate  reference  horizon  using  H0RAN6 

and  K  eouals  1*13*  (Assuming  DLT  and  OLR 
are  non-zero.)  (Option  not  available*) 

2  =  Calculate  reference  horizon  using  HORANG 

and  K  eouals  ERFAC*  (Assuming  DLT  and  DLR 
are  non-zero « ) 

3  =  Do  not  change  reference  horizons  from 

previous  run.  (Option  not  available.) 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA  MAIN  OUTDAT 

-  Used  but  not  changed  in  the  following  subprograms*. 

TRANSF 

/JAMPAR/  R*4  JAMPAR. INC 

99X  int erferer  bandwidth  in  MHz . 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms* 

BUJAM 

/MC0M2/  1*2  MCOH.INC 

Interference  covariance  matrix  calculation  indicator. 

Only  used  when  IBU  eouals  0»  otherwise  ignored. 

Default  is  0. 

0  =  Interferer  covariance  matrix  calculation 
done  in  subroutine  BOTAC 
1  =  Interferer  covariance  matrix  calculation 
done  in  subroutine  JAMCON 

-  Used  but  not  changed  in  the  following  subprograms! 

BOTAC  OUTDAT 

/JAMPAR/  R*4  JAMPAR. INC 

Interferer  power  density  in  dBm/Hz!  -174  or  less 

denotes  no  interference.  Default  is  -1000  dBm/Hz. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms! 

BWJAM 

/MC0M4/  1*2  MCOH.INC 

Pointer  to  centroid  of  lower  beam  troposcatter  signal 
power  per  unit  delay  profile. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
POWER 

-  Used  but  not  changed  in  the  following  subprograms! 
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CAC  DINT 

JREFL  /HC0M2/  1*2  HCOH.INC 

Indicates  whether  specular  reflection  is  to  be 
included  in  interferer  covariance  matrix  calculation 
(JREFL  =  1)  or  not  (JREFL  =  0).  Default  is  0. 

-  Used  but  not  changed  in  the  following  subprograms? 

JAMCOH 

KGAIN  /RZ/  1*2  RZ  < INC 

Integer  ratio  of  bandwidth  to  data  rate. 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
POWER 

-  Used  but  not  changed  in  the  following  subprograms? 

CAC  DINT  NDl'S  SASEO  SIGIN  SINT  TRCIN 

KISI  /NUNPAR/  1*2  NUHPAR.INC 

Parameter  for  calculation  of  AN/TRC-170  outage 
probability.  Set  to  6  in  data  statement. 

-  Used  but  not  changed  in  the  following  subprograms? 

POUT AG  TRC 

KLIMAT  /PROPAR/  1*2  TROCOM.INC 

Climate  zone  indicator.  Default  is  0. 

0  =  User  supplied  climate 
NBS  TN101  climates 

1  =  Continental  temperate  (CT) 

2  =  Maritime  temperate  overland  (NTL) 

3  =  Maritime  temperate  oversea  (MTS) 

4  =  Maritime  subtropical  overland  (MSL) 

5  =  Continental  temperate  time  block  2  (CT2) 

(winter  afternoon  hours)  -  formerly 
Maritime  subtropical  oversea  (MSS) 

6  -  Desert.  Sahara  (OS) 

7  =  Eouatorial  (EOU) 

8  =  Continental  subtropical  (CS) 

MIL-HDBK-417  climates 

9  =  Continental  temperate  (CT) 

10  =  Maritime  temperate  overland  (MTL) 

11  =  Maritime  temperate  oversea  (MTS) 

12  =  Maritime  subtropical  (MS) 

13  =  Desert.  Sahara  (DS) 

14  =  Eouatorial  (EQU) 

15  =  Continental  subtropical  (CS) 

16  =  Mediterranean  (MED) 

17  =  Polar  (POL) 

-  Possibly  given  a  new  value  in  the  following  subprograms? 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

AVAIL  POWER 

KM  /UNIT/  R*4  IODATA. INC 

String  'km  '  for  units  output. 

-  Used  but  not  changed  in  the  following  subprograms! 

INDATA  OUTDAT  UNITS 
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ROF 


N6 


EBUG 


RR 


N 


NKNO 


SI 


IAME  ( 20 ) 


/PROPAR/  1*2  TROCOH.INC 

Actual  number  of  samples  in  height  profile  of 

structure  constant  CN2.  Limited  to  NPROF  samples. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
INBATA 

-  Used  but  not  changed  in  the  following  subprograms; 

LOOPS  OUTDAT  RIPROF 

/HC0H2/  1*2  HCOH.INO 

Pointer  to  data  arras  elements  containing  interferer 
azimuth  and  elevation  angles. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 

HDTS 

-  Used  but  not  changed  in  the  following  subprograms; 

JAMCOM 

/LUNS/  1*2  LUNS .INC 

Debug  output  unit.  Alwass  the  same  as  LOUT  but  used 
to  uniouels  identify  the  write  statements* 

-  Used  but  not  changed  in  the  following  subprograms; 
hATCO 

/LUNS/  1*2  LUNS. INC 

Error  output  unit. 

-  Used  but  not  changed  in  the  following  subprograms; 

ANTGEO  BUTFIL  BUJAH  CL [HE  CLIHIL  CLIHIX  CONVOL  OEIND 

DIFSNR  DIF1  INDATA  LTCORR  HDIF  HDTS  ORDER  POWER 

SEARCH  SECTOR  SIGIN  TANGL  TRC  UNITS 

/LUNS/  1*2  LUNS. INC 

TROPO.DAT  input  unit  number. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 

INDATA  SECTOR  UNITS 

/IODATA/  1*2  IOBATA. INC 

Link  number. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms; 

SUHPAG 

/MC0M2/  1*2  HCOH.INC 

Number  of  future  Intersymbol  Interference  (ISI) 
contributors  considered  in  HD-918  performance 
calculation.  Default  is  2. 

-  Possibly  given  a  new  value  in  the  following  subprograms: 

INDAFA  SIGIN 

-  Used  but  not  changed  in  the  following  subprograms; 

HATCO  OUTDAT 

/IODATA/  1*2  IODATA. INC 

Link  name.  Transmitter  site  first?  receiver  site 

second.  Used  as  link  identifier  on  output  files 
FOR002.DAT  and  SUHPAG. OUT. 

-  Possibly  given  a  new  value  in  the  following  subprograms: 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 
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OUTDAT  SUHPA6 

T  /LUNS/  1*2  LUNS.INC 

F0R002.DAT  output  unit  number. 

-  Used  but  not  changed  in  the  following  subprograms' 


AVAIL 

BERCAL 

BOTAC 

BUTFIL 

cum 

Cl.IMIX 

D1FSNR 

ERRIO 

ERROR 

MAIN 

MATCO 

MBIF 

MDTS 

OUTDAT 

POWER 

PROUT 

SASEQ 

SIM 

SINT 

SUB1D 

TRC 

TRCIN 

M  /LUNS/  1*2  LUNS.INC 

SUhPAG.OUT  output  unit  number. 

-  Used  but  not  changed  in  the  following  subprograms! 
SUHPAG 

ITS  /UNIT/  1*2  IODATA, INC 

Integer  value  that  specifies  the  set  of  units 
reouested  by  the  user.  These  units  are  for  path, 
antenna  location.  angle,  and  freouency  parameters. 
Default  is  8.  The  given  units  are  defined  by  bit 
values  of  LUNITS! 

Bit  no.  Heaning  of  value  0/1 

0  enslish  /  metric 

1  statute  miles  /  nautical  miles 

2  feet  /  meters 

3  mrad  /  degrees 

4  GHz  /  MHz 
Valid  LUNITS  values  are 


0  ! 

stat. 

miles 

- 

feet 

- 

mi  lliradians 

- 

GHz 

1  ! 

kilometers 

- 

meters 

- 

mi  11 i radians 

- 

GHz 

O  « 

4~  » 

naut . 

miles 

- 

feet 

- 

milliradians 

- 

GHz 

8  ! 

stat. 

miles 

- 

feet 

- 

degrees 

- 

GHz 

9  ! 

kilometers 

- 

meters 

- 

degrees 

- 

GHz 

10! 

naut. 

miles 

- 

feet 

- 

degrees 

- 

GHZ 

16! 

stat . 

miles 

- 

feet 

- 

milliradians 

- 

MHz 

17! 

kilometers 

- 

meters 

- 

milliradians 

- 

MHz 

18! 

naut . 

miles 

- 

feet 

- 

mi  lliradians 

- 

MHz 

24! 

stat. 

miles 

- 

feet 

- 

degrees 

- 

MHz 

25! 

kilometers 

- 

meters 

- 

degrees 

- 

MHz 

26! 

naut  • 

miles 

- 

feet 

- 

degrees 

- 

MHz 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  SUMPAG  UNITCV 

G  /MC0M2/  1*2  MCOH.INC 

Number  of  values  of  interferer  azimuth/elevation  pairs 
(JANG)  for  which  outage  calculations  are  to  be  made. 
Default  is  1. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

MDTS  OUTDAT 

ST  /ERAD/  1*2  ERAD.INC 

Multipath  distribution  indicator- 


LE  DICTIONARY 


Pase  C-2t» 


0  =  Only  aedian  aultipath  spread  used(def auit ) 

1  =  Multipath  distribution  used.  (Option  not 
currently  available. ) 

-  Used  but  not  chanaed  in  the  followina  subprosraas! 

INDATA  MAIN  POWER  PROUT 

/UNIT/  R*4  IODATA. INC  • 

Strina  'aet  '  for  units  output. 

-  Used  but  not  chanaed  in  the  followina  subProSraesl 
ANTGEO  OUTDAT  UNITS 

/UNIT/  R*4  IODATA. INC 

Strina  'MHz  '  for  units  output. 

-  Used  but  not  chanaed  in  the  followina  subprosraas*  * 

ANTGEO  INDATA  OUTDAT  UNITS 

/PDATA/  1*2  PDATA. INC 

Nuaber  of  siaulator  taps.  Default  is  16. 

-  Possibly  aiven  a  new  value  in  the  followina  subprosraas *. 

INDATA 

-  Used  but  not  chanaed  in  the  followina  subprosraas*.  ® 

SIM 

iT  /MC0M2/  1*2  MCOM.INC 

PropaSation/aodea  flas  to  se’ect  calculation  aode. 

Default  is  1. 

0  =  Proeasation  only 

1  =  Propadation  +  MD-918  aodea  * 

2  =  Proeasation  +  AN/TRC-170  or  DAR  aodea 

3  =  Proeasation  +  user-def ined  aodea 

-  Possibly  aiven  a  new  value  in  the  followina  suhproaraas! 

INDATA  POWER 

-  Used  but  not  chanaed  in  the  followina  subprosraas*  • 

MAIN  OUTDAT  SUMPAG  * 

»  /JAMPAR/  1*2  JAMPAR , INC 

Interference  sianal  aodulation  foraat.  Default  is  1. 

0  =  Analos  FDM  /  FM 
1  =  DiSital  QPSK 

-  Possibly  aiven  a  new  value  in  the  followina  subprosraas*. 

BUTFIL  • 

-  Used  but  not  chanaed  in  the  followina  subprosraas! 

BUJAM  PSPJ  TPSPJ 

[G  /MC0M2/  1*2  MCOM.INC 

Interference  sianal  aodulation  foraat.  Default  is  1. 

0  =  Analoa  FDM  /  FM  _ 

1  =  DiSital  OPSK 

-  Possibly  siven  a  new  value  in  the  followina  subprosraas! 

INDATA 

-  Used  but  not  chanaed  in  the  followina  subprosraas! 

MAIN  OUTDAT  SUMPAG 

/ERAD/  1*2  ERAD .INC 

Loop  liait  for  MRAD.  Default  is  1.  * 

(MRAD  is  1  for  MDIST  =  0  and  MRAD  is  3  for  MDIS1  =1). 

-  Possibly  aiven  a  new  value  in  the  followina  subprosraas*. 
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INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

MAIN 

HRADNS  /UNIT/  R*4  I0DATA.1NC 

String  'mrad'  for  units  output. 

-  Used  but  not  chansed  in  the  following  subprograms. 

ANTGEO  OUTDAT  UNITS 

NACCU  /CONTRL/  1*2  TROCOH.INC 

Parameter  used  as  truncation  point  for  common 
volume  integration  termination.  Default  is  40. 

-  Possibly  given  a  new  value  in  the  following  subprograms. 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  OUTDAT  SUHPAG 

NANG  /RI2/  1*2  RI2.INC 

NANG  is  1  if  there  is  angle  diversity  (default). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

MDTS 

NB  /RI2/  1*2  RI2.INC 

Number  of  elements  accessed  in  arrays  DU>  DX  and  DY. 

-  Used  but  not  changed  in  the  following  subprograms! 

CAJI 

NCKIP  /SYSPAR/  1*2  SYSPAR.INC 

Number  of  chips  in  PN  seauence  used  to  expand 
bandwidth  in  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

P2INT  TRC  TXPULS 

NCLINE  /MC0M2/  1*2  NCOH.INL 

Flag  set  to  1  if  ICLINE  eouals  2. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT 

NCORMX  Parameter  1*2  TROPAR.INC 

Maximum  number  of  correlations  between  receive  ports. 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  SIM 

NCORR  /PDATA/  1*2  PDATA, INC 

Number  of  receive  port  correlations. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER  SIM  SUHPAG 

NDELMX  Parameter  1*2  TROPAR.INC 

Maximum  number  of  delay  bins  in  troposcatter  power  per 
unit  delay  profiles. 
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P3*e  C-2? 


NDELQ 


NDIVS 


NEIGEN 


NERT 


NEWCL<4) 


NFIG 


NIP 


-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  HDIF  POWER  SIM  SIJMPAG 

/MCOM4/  1*2  MCOM.INC 

Number  of  non-zero  elements  of  troposcatter  power  per 

unit  dels*  profiles  Q(NDELQ'l).  : 

-  Possibly  given  a  new  value  in  the  following  subprograms!  • 

POWER 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  DINT 

/SYSPAR/  1*2  SYSPAR.INC 

Number  of  explicit  diversity  channels  for  AN/TRC-170. 

Eoual  to  4  for  2S/2F  and  2  for  28  or  2F.  • 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

AVG  TRC  VARW 

/ANSWER/  1*2  ANSWER. INC 

Number  of  implicit  diversity  eigenvalues  (stored  in 

array  VEIGV)  used  in  calculation  of  AN/TRC-170 

performance. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

EIGV 

-  Used  but  not  changed  in  the  following  subprograms! 

AVG  TRC  .• 

/MC0M2/  1*2  MCOM.INC 

Bit  error  rate  threshold  indicator  for  yearly  fade 
outage  probability  calculation.  Default  is  2. 

0  =  All  three  thresholds 

1  =  For  10** (-3)  only  .-O 

2  =  For  10**<-4)  only  • 

3  =  For  10**<-5)  only 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

BERCAL  MAIN  MDTS  OUTDAT  SUNPAG 

/MC0M2/  1*2  MCOM.INC  • 

New  climate  type  character  string. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  SUMPAG 

/MC0M4/  R*4  MCOM.INC  • 

Receiver  noise  figure  in  dB.  Default  is  4dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  OUTDAT  POWER 

/RZ/  1*2  .• 

Initialization  constant  for  numerical  eaualizer 
covariance  matrix  calculation. 
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NJR 

NHI 

NOBS 

N0U(8) 

NPh(5) 

NPOINT 

NPOLJ 

NPOLRX 


-  Possibly  given  a  new  value  in  the  following  subprograms} 
HDTS 

-  Used  but  not  changed  in  the  following  subprograms} 

CAC 

/RZ4/  1*2  RZ4.INC 

Number  of  sample  points  for  RJCOR, 

-  Possibly  given  a  new  value  in  the  following  subprograms} 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms! 

BOTAC 

/UNIT/  R*4  IODATA. INC 

String  'nmi  '  for  units  output* 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  UNITS 

/MC0H2/  1*2  MCOM.INC 

Number  of  diffraction  obstacles*  Maximum  is  3* 

default  is  1* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  MAIN  OUTDAT  POWER 

/TSTAHP/  L*1  IODATA. INC 

Array  used  in  PDP-11/70  version  to  hold  time  of  day  as 
characters. 

-  Used  but  not  changed  in  the  following  subprograms! 

MAIN  OUTDAT  SUHPAG 

/HC0M2/  1*2  MCOH.INC 

Array  containing  number  of  terrain  elevation  data 
points  for  calculation  of  effective  antenna  heights 
for  each  section  of  the  diffraction  path. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  OUTDAT  POWER 

/NUHPAR/  1*2  NUHPAR. INC 

Number  of  points  for  numerical  integration. 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/JAMPAR/  1*2  JAHPAR. INC 

Number  of  poles  in  the  QPKK  interference  filter. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BW  JAM 

-  Used  but  not  changed  in  the  following  subprograms! 

PSPJ  TPSPJ 

/BUTPAR/  R*4  BUTPAR. INC 

Number  of  poles  in  the  receive  Butterworth  filter. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BWJAM  INDATA  SEARCH 

-  Used  but  not  changed  in  the  following  subprograms! 

BUTFIL  FUNJAM  PSPEC1  PSPF.C2  PWRSPC  SPEC1 
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NPOLTX  /BOTPAR/  1*2  BUTPAR.INC 

Nuaber  of  poles  in  the  transait  Butterworth  filter. 

-  Possibly  diven  a  new  value  in  the  followind  subprodraas! 

BU JAM  INDATA  SEARCH 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

A50FCC  BUTFIL  FUNBW  PSPJ  SPEC1  SPEC2  TPSPJ 

NPROF  Paraaeter  1*2  TROPAR.INC 

Diaension  of  array  containind  the  structure  constant 
heidht  profile  <CN2). 

--  Not  used  — 

NR  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  receive  ports. 

-  Possibly  diven  a  new  value  in  the  followind  subprodraas! 

ANTGEO  INDATA 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

CHKDAT  INTLIH  LOOPS  HAIN  OUTDAT  STPPAR  SUHPAG  TRANSF 

UNITCV 

NRAD  /ERAD/  1*2  ERAD.INC 

ERFAC  indicator  and  loop  counter.  Default  is  1. 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

MAIN  POKER  PROUT 

NRMX  Paraaeter  1*2  TROPAR.INC 

Maxinua  nuaber  of  receive  Ports. 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

ANTPAR  CHKDAT 

NT  /SYSTRN/  1*2  TROCOH.INC 

Nuaber  of  transait  ports. 

-  Possibly  diven  a  new  value  in  the  followind  subprodraas! 

ANTGEO  INDATA 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

CHKDAT  INTLIH  LOOPS  HAIN  OUTDAT  STPPAR  SUHPAG  TRANSF 

UNITCV 

NTAP  /HC0M2/  1*2  HCOH.INC 

Nuaber  of  adaptive  forward  eoualizer  taps  (AFE)  in 
HD-918  aodea.  Set  to  3  in  INGATA. 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

OUTDAT  SIGIN 

NTERR  /MC0M2/  1*2  HCOH.INC 

Control  paraaeter  for  entry  or  calculation  of 
effective  antenna  heidhts  <HTE>  HRE)  and  effective 
obstacle  heidhts  above  averade  terrain  elevation 
(HLEF). 

0  =  HTE  and  HRE  supplied  directly 

1  =  AVETX  and  AVF.RX  supplied 

2  =  HI ( . )  supplied 

-  Possibly  diven  a  new  value  in  the  followind  subprodraas! 

INDATA 

-  Used  but  not  chanded  in  the  followind  subprodraas! 

DIFSNR  OUTDAT  POWER 

NTH1  /IOUT/  1*2  IOUT.INC 
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NTH2 

NTHR 

NTMX 

NTR 

NUHVC 

NV 

PAVG<20,20) 

PCON 

PDUR 
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Pointer  to  largest  bit  error  rate  threshold  of 
interest  for  AN/TRC-170  outage  probability 
calculation. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/IOUT/  1*2  IOUT.INC 

Pointer  to  smallest  bit  error  rate  threshold  of 

interest  for  AN/TRC-170  outage  probability 

calculation. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/SYSPAR/  1*2  SYSPAR. INC 

Pointer  to  bit  error  rate  threshold  for  AN/TRC-170 

outage  probability  calculation. 

-  Used  but  not  changed  in  the  following  subprograms! 

POUTAG  TRC  TRCIN 

Parameter  1*2  TROPAR.INC 

Maximum  number  of  transmit  ports. 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTF’AR  CHKDAT 

/RZ4/  1*2  RZ4.INC 

Number  of  samples  for  calculating  transmit-receive 
filter  impulse  response  (TRFILT). 

-  Used  but  not  changed  in  the  following  subprograms! 

BUTFII.  CAC  TXPULS 

/SYSTRN/  1*2  TROCOM, INC 

Number  of  voice  channels  in  analog  troposcatter 

system.  Default  is  72. 

-  Not  used  — 

/NUMFAR/  1*2  NUNPAR.INC 

Normalization  parameter  for  calculation  of  AN/TRC-170 
signal  gain.  Set  to  18. 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/ANSWER/  R*4  ANSWER. INC 

Short-term  average  bit  error  rate  for  each  sampling 

time  and  short-term  average  SNR. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

/RZ/  R*8  RZ.INC 

Normalization  factor  for  probability  integral. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
MDTS 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC 

/SYSPAR/  R*4  SYSPAR. INC 


tt 
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PEAKAV 


PENERG 


PFACT (3) 


PHDIV 


Symbol  pulse  duration. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

-  Used  but  not  changed  in  the  following  subprograms. 

P2INT  TXPULS 

/RZ4/  R*4  RZ4.INC 

Peak-to-averase  loss  due  to  RF  filtering  in  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms' 

BUTFIL  NDTS  TRCIN 

-  Used  but  not  changed  in  the  following  subprograms' 

TRC 

/BUTPAR/  Rt4  BUTPAR. INC 

Normalized  energy  of  filter. 

-  Used  but  not  changed  in  the  following  subprograms: 

A50FCC  BUTFIL  BW JAN  FUNBW 

/ERAD/  R*4  ERAD.INC 

Cumulative  probability  distribution  for  effective 

earth  radius  factor. 

For  NRAD  *  1  PFACT  =  0.89 

=2  =0.1 

=3  =  0.01 

-  Used  but  not  changed  in  the  following  subprograms' 

FROUT 

/MC0M4/  R*4  NCON.INC 

Sauint  angle  between  upper  and  lower  receiver  beams  in 
radians.  Default  is  beamwidth. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms'. 

DIFSNR  LTCORR  OUTDAT 

/PATHGE/  R*4  TROCOH.INC 

Diffraction  angle  in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INTLIN  TRANSF  UNITCV 

/PATHGE/  R*4  TROCOM.INC 

Receive  angular  distance  to  minimum  scattering  point 

in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms' 
TRANSF  UNITCV 

/PATHGE/  R*4  TROCON.INC 

Transmit  angular  distance  to  minimum  scattering  point 
in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRANSF  UNITCV 

/CONSTA/  R*4  CONSTANTS. INC 

Constant  Pi  =  3.141592654. 

-  Used  but  not  changed  in  the  following  subprograms: 

ANTGEO  BUTFIL  DIF1  FFT  GPATT  JANCOM  NDIF 

PSPJ  SEARCH  SINC  SPEC  TPSPEC  TPSPJ  VARPOL 

/ JAHPAR/  R*4  JANPAR. INC 


PSPEC 
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Normalization  constant  for  interference  calculations* 

-  Possibly  given  a  new  value  in  the  following  subprograms* 

BUJAM 

-  Used  but  not  changed  in  the  following  subprograms! 

BUTFIL  FUNJAM 

PL0SS1  /ERAD/  RM  ERAD.INC 

Reference  troposcatter  path  loss  in  dB  on  lower  beam 
for  NRAD  eouals  1* 

-  Possibly  given  a  new  value  in  the  following  subprograms* 

POWER 

PLOSSH  .  /PDATA/  RM  PDATA.INC 

Troposcatter  path  loss  from  approximate  analytic 
expression* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

LOOPS 

-  Used  but  not  changed  in  the  following  subprograms! 

SUMPAG 

POUT (20*20*3)  /ANSWER/  RM  ANSWER. INC 

AN/TRC-170  outage  probability  and  average  bit  error 
rate  as  a  function  of  sampling  time*  short-term 
average  SNR  and  error  rate  threshold. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRC 

PRAIK3)  /ERAD/  RM  ERAD.INC 

Fraction  of  time  effective  earth  radius  factor  is 
greater  than  ERFACi  Probability  that  effective  earth 
radius  factor  is  not  exceeded* 

For  NRAD  *  1  PRAD  =  0.5 

=2  =0.1 

=3  =  0.01 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER 

PSIRAO(NRMX)  /ANTENN/  RM  TR0C0N.INC 

Array  of  receiver  beam  azimuths  in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

ANT6E0  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  INTLIH  LOOPS  0UTDAT  SUMPAG  TRL0SS 

PSIREO(NRMX)  /ANTENN/  RM  TR0C0M.INC 

Array  of  receiver  beam  boresisht  elevations  above 
radio  horizon  in  radians*  ie*  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSIREO(l) 
is  the  main  receive  antenna. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

ANTGE0  INDATA  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  OIFSNR  TNTLIM  JAMC0M  LOOPS  0UTDAT  POWER  SUMPAG 

TRL0SS 

PSITAO(NTMX)  /ANTENN/  RM  TR0C0M.INC 

Array  of  transmitter  beam  azimuths  in  radians. 


BAL  VARIABLE  DICTIONARY 


Page  C-33 


-  Possibly  given  a  new  value  in  the  following  subprograms! 

ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprogram! 

CHK DAT  INTLIH  LOOPS  OUTDAT  SUHPAG 

PSITEO(NTNX)  /ANTENN/  R*4  TROCOM.INC 

Array  of  transmitter  beam  boresight  elevations  above 
radio  horizon  in  radianst  ie*  angle  at  which  each 
antenna  is  aimed  relative  to  the  horizon.  PSITEO(l) 
is  the  main  transmit  antenna. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

ANTGEO  INDATA  TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  DIFSNR  INTLIH  LOOPS  OUTDAT  POWER  SUHPAG  TRLOSS 

PULSE  /RZ/  1*2  RZ.INC 

Switch  controlling  HD-918  pulse  shape  after 
transmitter-receiver  filtering. 

PULSE  =  0  Triangle 

=  1  OOPSK  matched  filter 

=  2  Sine  pulse*  bandwidth  eaual  to  1 
=5  RF  filtering  included 
Set  to  0  if  IBM  =  0  or  KGAIN  >  1. 

Set  to  5  if  IBW  >  0  and  KGAIN  =  1, 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INOATA  SIGIN 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  CAJI  DINT  SINT 

PXHIT  /HC0H4/  R*4  HCOH.INC 

Rated  transmission  power  in  dBm.  Default  is  70dBm. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  OUTDAT  POWER 

Q(NDELHXtNCORHX)  /PDATA/  R*4  PDATA.INC 

Hatrix  of  troposcatter  signal  power  and  correlation 
per  unit  delay  profiles. 

For  DIVTYP  =  0! 

Q(.il)  Power  on  lower  beam  vs.  delay. 

G< . »2)  Correlation  between  lower  and 
upper  beam  vs.  delay. 

Q( . »3)  Correlation  between  lower  beams 
in  antennas  112  vs.  delay. 

Q(.»4)  Power  on  upper  beam  vs.  delay. 

Q(.»?)  Power  on  diffraction  path  vs.  delay 
For  DIVTYP  =  1! 

Q(.*l)  Power  on  lower  beam  vs.  delay. 

Q(.f2)  Correlation  between  lower  and 
upper  beam  vs.  delay. 

Q(.f3)  Power  on  upper  beam  vs.  delay 
G(.»7)  Power  on  diffraction  path  vs.  delay. 

For  DIVTYP  =  2! 
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Q(.*t)  Power  on  path  1  (lower  beam)  vs.  delay. 

G(.*2)  Correlation  between  convergent  paths 
(lower  beaa)  vs.  delaw. 

Q(.*3)  Correlation  between  divergent  paths 
(lower  beaa)  vs.  delay. 

Q(.*4)  Correlation  between  parallel  paths 
(lower  beaa)  vs.  delay. 

G(.*5)  Correlation  between  crossing  paths 
(lower  beaa)  vs.  delay. 

Q(.»6)  Power  on  path  of  upper  beaa  vs.  delay. 

Q ( .  *  7 )  Power  on  diffraction  path  vs.  delay. 

-  Possibly  given  a  new  value  in  the  following  subprograms: 

LOOPS  HDIF  POWER 

-  Used  but  not  changed  in  the  following  subprograms. 

MAIN  SIM  SUMPAG 

QCORR(NCORMX)  /PDATA/  R*4  PDATA. INC 

Contains  elements  of  covariance  matrix*  ie*  powers  and 
correlations. 

For  DIVTYP  =  OJ 

QCORR(l)  Power  on  lower  beam 
GC0RR(2)  Correlation  coefficient  between  lower 
and  upper  beam. 

QC0RR(3)  Correlation  coefficient  between  lower 
beams  of  antennas  1  and  2 
QC0RR< 4 )  Power  on  upper  beam. 

For  DIVTYP  =  15 

QCORR(l)  Power  on  lower  beam 
GC0RR< 2)  Correlation  coefficient  between  lower 
and  upper  beam. 

GC0RR(3)  Power  on  upper  beam. 

For  DIVTYP  =  25 

GCORR(l)  Power  on  path  1  (lower  beam) 

GC0RR(2)  Correlation  coefficient  between  convergent 
paths. 

QC0RR(3)  Correlation  coefficient  between  divergent 
paths. 

QC0RR(4)  Correlation  coefficient  between  parallel 
paths. 

QC0RR<5)  Correlation  coefficient  between  crossing 
paths . 

QC0RR(6)  Power  on  upper  beam. 

-  Possibly  given  a  new  value  in  the  following  subprograms: 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms: 

POWER  SUMPAG 

RC0R<  32 )  /RZ4/  R*4  RZ4.INC 

Correlation  function  of  the  receive  filter  in  steps 
enual  to  the  taewidth  (TAPW)  for  MD-918  modem*  or 
eoual  to  1/RATE  for  AN/TRC-170  or  DAR  modem. 

-  Used  but  not  changed  in  the  following  subprograms: 
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RJCOR( 129) 

RJC0RIK129) 

RLL 

RSDB 

RSEP(3) 

RSNHIN<3) 

RSNRSN(30) 

S 

SI 

SCPARM 


BUTFIL  CAJI 

/RZ4/  R*4  RZ4.INC 

Correlation  function  of  interferer-receiver  filters  at 
RATE  points  per  symbol  interval , 

-  Possibly  sfiven  a  new  value  in  the  following  subprograms) 
BUTFIL 

/RZ4/  R*4  RZ4.INC 

Not  used  anymore  but  retained  to  align  commons. 

-  Not  used  — 

/SYSTRN/  RI4  rROCOH.INC 

Receiver  line  losses  in  dB.  Default  is  0  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms) 

DIFSNR  OUTOAT  POWER  SUMPAG 

/BUTPAR/  R*4  BUT PAR. INC 

10  times  the  base  10  logarithm  of  the  symbol  rate 

minus  60. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms) 

A50FCC  FCCHSK 

/IODATA/  R*4  I OD AT A. INC 

Separation  between  receive  antennas. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
ANTGEO  INDATA 

/NUHPAR/  R*4  NUHPAR. INC 

SNR  threshold  corresponding  to  each  bit  error  rate 

threshold  for  AN/TRC-170. 

-  Used  but  not  changed  in  the  following  subprograms) 

FOUTAG 

/NUMPAR/  R*4  NUHPAR .INC 

Set  of  SNR  values  for  which  solution  of  transcendental 
function  (UF’ISIH)  is  tabulated. 

-  Used  but  not  changed  in  the  following  subprograms) 

POUTAG 

/PATHGE/  R*4  TROCOM.INC 

Troposcatter  path  asymmetry  Parameter. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
TRANSF 

-  Used  but  not  changed  in  the  following  subprograms) 

SUHPAG 

/PATHGE/  Rt4  TROCOH.INC 

Troposcatter  path  asymmetry  parameter. 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
TRANSF 

/PROPAR/  R*4  TROCOH.INC 

Wavenumber  spectrum  slope  parameter  H.  Default  is 

3 . 66 . 

-  Possibly  given  a  new  value  in  the  following  subprograms) 
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INDATA 

-  Used  but  not  changed  in  the  following  subprograms* 

INTLIH  LOOPS  OUTDAT  STPPAR  SUMPAG  TRI.0SS 

SEAN  /PROPAR/  R*4  TROCOM.INC 

Minimum  monthly  median  of  refractivity  at  sea  level. 

Used  to  calculate  ERFAC  if  non-zero, 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
INPATA  MAIN 

-  Used  but  not  changed  in  the  following  subprograms* 

AVAIL  OUTDAT 

SIGMA  /SYSPAR/  R*4  SYSPAR.INC 

Half  the  RMS  lower  beam  delay  spread  normalized 
relative  to  the  symbol  duration, 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms* 

EIGV  TIMPAR  TRC  VARN 

SMI  /UNIT/  R*4  IODATA, INC 

String  'smi  '  for  units  output, 

-  Used  but  not  changed  in  the  following  subprograms: 

OUTDAT  UNITS 

SNDB  ( 2 )  /IOUT  /  RM  IOUT.INC 

Signal  to  noise  ratio  in  dB, 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms; 

TRC 

SNR  /SYSPAR/  R*4  SYSPAR.INC 

Signal  to  noise  ratio. 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
TRC  TRCIN 

-  Used  but  not  changed  in  the  following  subprograms; 

PAVERG  POUT AG 

SNRBU  /RZ4/  R*4  RZ4.INC 

Signal  to  noise  ratio  adjustment  for  AN/TRC-t/0  due  to 
limited  receive  filter  bandwidth, 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms; 

TRC 

SNRF2  /RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  for 
degradation  due  to  interference  from  another 
freouency.  Only  for  2-freauency  AN/TRC-170  modem. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms: 

TRC 

SNR JAM  /RZ4/  R*4  RZ4.INC 

Parameter  to  adjust  the  signal  to  noise  ratio  of 


% 


VARIABLE  DICTIONARY 


Rase  037 


SP 


SPE 


SPREAD (NCORMX) 


STSNR 


STSNR1 


SUPRES 


AN/TRC-170  for  degradation  due  to  colocated/adJacent 
channel  interference. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUrFIL 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/MC0H4/  R*4  MCOM.INC 

Service  probability.  Default  is  .95. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

BIFSNR  OUTDAT  POWER 

/PDATA/  R*4  PDATA. INC 

Tap  spacing  in  nanoseconds.  Default  is  67  nsec. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

SIN 

/PDATA/  R*4  PDATA. INC 

Array  of  delay  spreads  (2-sigma)  for  each  beam  in 

seconds . 

-  Used  but  not  changed  in  the  following  subprograms! 

POWER  SUMFAG 

/SUMP/  R*4  SUMP .INC 

Standard  deviation  of  troposcatter  signal  long-term 
SNR  distribution  in  dB. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
POWER 

-  Used  but  not  changed  in  the  following  subprograms! 

MAIN  MDTS  SUMPAG 

/SYSPAR/  R*4  SYSPAR.INC 

Standard  deviation  of  troposcatter  signal  long-term 

SNR  distribution  in  dB.  Same  as  STSNR  in  /SUMP/. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRCIN 

-  Used  but  not  changed  in  the  following  subprograms! 

TRC 

/IODATA/  L*4  IODATA. INC 

Supress  long  output  in  SUMPAG  if  true. 

Set  to  TRUE  if  PTYPE  >  9. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

SUMPAG 

/SYSPAR/  R*4  SYSPAR.INC 

Normalized  sampling  time  for  lower  beam. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TIMEGl  TRC 

-  Used  but  not  changed  in  the  following  subprograms! 

EIGV  TIMPAR  VARW 


VARIABLES 


Base  I'- 7 


SASEQ 

SIM 


SIMT 

sub  in 

SUMPA6 


(Subroutine)  outputs  to  F0R002.DAT  the  following  variables* 
IASEQ  1*2  LOG  PN  chip  seouence. 

(Subroutine)  outputs  to  F0R002.DAT  the  followinS  variables' 


I 

1*2 

LOC 

Beat  nuther. 

IC1 

1*2 

LOC 

Beat  pointer  of  tap  correlation  calculation 

IC2 

1*2 

LOC 

Beat  pointer  of  tap  correlation  calculation 

IG1 

1*2 

LOC 

Beat  pointer  of  tap  sain  calculation. 

IQ2 

1*2 

LOC 

Beat  pointer  of  tap  Sain  calculation. 

ISPE 

1*2 

LOC 

Tap  spacins  in  nanoseconds. 

11  CORK 

1*2 

GLO 

Array  of  receivins  beats  involved  in  the 
correlation  calculations. 

I2C0RR 

1*2 

GLO 

Arras  of  receivins  beats  involved  in  the 
correlation  calculations. 

PCF 

R*4 

LOC 

Power  correction  factor  in  dB. 

SNEG 

R*4 

LOC 

Attenuation  in  dB. 

TEMPI 

R*4 

LOC 

Correlation  coefficient. 

(Subroutine)  outputs  to  F0R002.DAT  the  followinS  variables* 

HU  R*8  GLO  Sisnal  response  after  PN  seauence  correlation. 

(Subroutine)  outputs  to  FOR002.PAT  the  followinS  variables* 


SNAME 

R*8 

ARG 

Mate  of  the  subproSrat  that  called  SUBID. 

;  Subroutine) 

outputs  to 

SUMPAG.OUT  the  followinS  variables? 

AA 

R*4 

GLO 

Attor.pheric  absorption  loss  in  dB. 

ALFAO 

R*4 

GLO 

Minitut  elevation  ansle  teasured  frot 
transtitter-to-receiver  line  to  transtit 
horizon  line  in  radians. 

AR 

R*4 

GLO 

Array  of  receiver  antenna  diateters  in  teters. 
AR(l)is  eouivalent  to  RDIAM  in  the  input  file. 

AT 

R*4 

GLO 

Array  of  transtit  antenna  diateters  in  teters. 
AT(l)is  eouivalent  to  TDIAM  in  the  input  file. 

BER 

R*4 

GLO 

Bit  error  rate  thresholds  of  interest.  Set 
to  IE-3,  IE-4  and  1F.-5  in  data  statetent. 

BETAO 

R*4 

GLO 

Minitut  elevation  ansle  teasured  frot 
receiver-to-transtitter  line  to  receiver 
horizon  line  in  radians. 

BOUT 

R*4 

ARG 

Yearly  average  fade  outaSe  probability  for  each 
bit  error  rate  threshold  specified  and  2S/2F 
and  2S  diversity  conf iSurations. 

CLIMAT 

R*4 

ARG 

Clitate  zone  indicator. 

» 

R*4 

GLO 

Great  circle  distance  between  transtitter 
and  receiver  teasured  at  sea  level  in  teters. 

BE 

R*4 

GLO 

Effective  distance  for  troposcatter  path  in 
ki loteters. 

DIFLOS 

R*4 

GLO 

Median  diffraction  path  loss  in  dB  for  each 
value  in  ERFAC  distribution. 

DIFRSL 

R*4 

GLO 

Median  diffraction  siSnal  RSL  in  dBt  for  each 

value  in  ERFAC  distribution. 
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upper  beam. 


RSL 

RM 

LOC 

Received  signal  level  distribution  of  scatter 
component* 

SNR 

R*4 

LOC 

SNR  per  bit  distribution  of  scatter  coaponent 
in  dB> 

SP 

R*4 

6L0 

Service  probability.  Default  is  .95. 

STSNR 

R*4 

GLO 

Standard  deviation  of  troposcatter  signal 
long-tera  SNR  distribution  ir  dB. 

TAU22 

R*8 

ARG 

Delay  spread  on  lower  beaa  in  nsec. 

TAU23 

R*8 

ARG 

Delay  spread  on  upper  beaa  in  nsec. 

TEMPI 

R*4 

LOC 

Reference  pathloss  of  scatter  coaponent  on 
lower  beaa. 

TEMP2 

R*4 

LOC 

Reference  pathloss  of  scatter  coaponent  on 
upper  beaa. 

THER 

R*4 

GLO 

Radio  horizon  elevation  angle  at  receive 
site  in  radians. 

THET 

R*4 

GLO 

Radio  horizon  elevation  angle  at  transait 
site  in  radians. 

TLOSS 

R*4 

LOC 

Pathloss  distribution  of  scatter  coaponent 
in  dB. 

VDE 

R*4 

ARG 

Tiae  variability  of  basic  transaission  loss 
in  dB. 

YO 

R*4 

LOC 

Variability  in  the  RSL  and  the  path  loss 

about  the  aedian. 

PROUT  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables* 


ABE 

R*4 

ARG 

Average  1000-bit  block  error  probability  for 
each  configuration. 

ABEL 

R*4 

GLO 

Cuaulative  block  error  probability  for 
each  diversity  configuration  as  specified 
by  OIVTYP  (averaged  over  aultipath 
distribution*  if  any). 

BER 

R*4 

GLO 

Bit  error  rate  thresholds  of  interest.  Set 
to  IE-3*  IE-4  and  IE-5  in  data  stateaent. 

BOUT 

R*4 

ARG 

Outage  probability  for  each  BER  threshold  and 
diversity  configuration. 

BOUTL 

R*4 

GLO 

Cuaulative  outage  probability  for  each 
diversity  configuration  and  error  rate 
threshold  (averaged  over  aultipath 
distribution*  if  any). 

Four 

R*4 

ARG 

Fade  outage  per  call  ainute  for  each  BER 
threshold  and  diversity  configuration*. 

FOUTI. 

R*4 

GLO 

Cuaulative  fade  outage  per  call  ainute  for 
each  diversity  configuration  and  error  rate 
threshold  (averaged  over  aultipath 
distribution*  if  any). 

NOUT 

1*2 

ARG 

Total  nuaber  of  short  tera  calculations 
perforaed. 

P 

R*4 

LOC 

Sage  as  BER  above. 
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OUTDAT  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 

(This  output  is  merely  a  summary  of  the  input  variables  which  are  fully 
described  in  section  3.2  of  the  User's  Manual.) 

POWER  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 


AA 

R*4 

GLO 

Atmospheric  absorption  loss  in  dB. 

ASNft 

R*4 

ARG 

Median  and/or  yearly  average  value  of 
troposcatter  signal  SMR  in  dB. 

AVERX 

R*4 

GLO 

Average  terrain  elevation  above  sea  level 
between  receive  site  and  radio  horizon*  in 
meters. 

AVETX 

R*4 

GLO 

Average  terrain  elevation  above  sea  level 
between  transmit  site  and  radio  horizon*  in 
meters . 

BUR 

R*4 

ARG 

Transmit  antenna  beamwidth  in  degrees. 

BUT 

R*4 

ARG 

Receive  antenna  beamwidth  in  degrees. 

CORRI.T 

R*4 

GLO 

Correlation  coefficient  for  long  term 
variability  of  lower  and  upper  beams. 

CPL 

R*4 

GLO 

Correlation  coefficient  for  long  term 
variability  of  lower  and  upper  beams. 

DE 

R*4 

GLO 

Effective  distance  for  troposcatter  path  in 
Kilometers. 

DELI 

R*4 

LOC 

Relative  average  delay  of  lower  beam  in 
nanoseconds. 

DEL  2 

R*4 

I.0C 

Relative  average  delay  of  upper  beam  in 
nanoseconds. 

DSP1 

R*4 

GLO 

Lower  beam  troposcatter  signal  RMS  delay 
spread  in  nanoseconds  for  percentiles  50*  90 
and  99, 

DSP2 

R«4 

GLO 

Upper  beam  troposcatter  signal  RMS  delay 
spread  in  nanoseconds  for  percentiles  50*  90 
and  99. 

ERFAC 

R*4 

GLO 

Yearly  median  value  of  effective  earth  radiu 
factor  k  in  kilometers.  Default  is  1.33. 

HRE 

R*4 

GLO 

Effective  receiver  antenna  height  above 
average  terrain  elevation  in  meters. 

HTE 

R*4 

GLO 

Effective  transmitter  antenna  height  above 
average  terrain  elevation  in  meters. 

IBLOSS 

I»2 

GLO 

Beam  number  corresponding  to  CPL(I). 

ITER 

112 

GLO 

Number  of  integration  cells  in  the  common 
volume  integration. 

PMED 

R*4 

LOC 

Short  term  median  pathloss. 

PRAD 

R*4 

GLO 

Fraction  of  time  effective  earth  radius 
factor  is  greater  than  ERFAC*  Probability 
that  effective  earth  radius  factor  is  not 
exceeded. 

For  NRAD  =  1  PRAD  =  0.5 

=2  =0.1 

=3  =  0.01 

RH1 

R*8 

ARG 

Correlation  coefficient  between  lower  and 

PUT  VARIABLES 
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MATCH 


MDIF 


MDTS 


Subroutine) 

outputs  to 

F0R002.DAT  the  following  variables* 

'  • 

A 

R*4 

ARG 

Noise  Matrix  for  AFE  taps. 

• 

C 

R*4 

ARG 

Covariance  Matrix  for  AFE  taps. 

CSUM 

R*4 

ARG 

I SI  Matrix  for  AFE  taps. 

• 

Subroutine) 

outputs  to 

F0R002.DAT  the  following  variables* 

AVI 

R*4 

LOC 

Diffraction  loss  in  dB. 

AV2 

R*4 

LOC 

Diffraction  loss  in  dB. 

DELE9 

R*4 

LOC 

Diffraction  path  relative  delaw  in  nsec. 

D1E3 

R*4 

LOC 

Reference  delaw  in  Msec. 

A 

K 

1*2 

LOC 

Edge  nuMber. 

LB 

R*4 

ARG 

Long  terM  reference  basic  path  loss  in  dB. 

LDIf 

R*4 

LOC 

Diffraction  loss  in  dB. 

LF 

R*4 

LOC 

Free-space  loss  in  dB. 

PHI 

R*4 

LOC 

Diffraction  angle. 

RC 

R*4 

LOC 

Radius  of  curvature  in  Meters. 

• 

Subroutine) 

outputs  to 

F0R002.DAT  the  following  variables. 

■ 

ASEP 

R*4 

ARG 

Receiver  antenna  separation  in  Meters. 

ASEQ 

1*2 

LOC 

FN  chip  seeuence. 

C6AIN 

R*4 

LOC 

Coding  gain  at  specified  error  rate  threshold. 

CRATE 

R*4 

LOC 

Code  rate. 

DBLOSS 

R*8 

LOC 

Attenuation  of  interference  due  to  sidelobes  of 

receiving  antenna. 

DEL 

R*4 

GLO 

Diffraction  path  delaw  relative  to  a  straight 

line  path  in  seconds. 

'•  .  ’» 

DEX 

R*8 

LOC 

Detereinant  of  SNR  Matrix. 

DGRhOD 

R*4 

LOC 

Modem  degradation  in  dB. 

£ 

DSNR 

R*4 

LOC 

Diffraction  coMPonent  SNR  in  dB. 

i 

FSIG 

R*4 

LOC 

Mean  tap  aaelitudes. 

JANG 

R*8 

LOC 

Interference  angle  of  incidence. 

JBUX 

R*8 

LOC 

Interfering  signal  bandwidth. 

KGAIN 

1*2 

GLO 

Integer  ratio  of  bandwidth  to  data  rate. 

PEAKAV 

R*4 

GLO 

Peak-to-averafle  loss  due  to  RF  filtering  in  dB. 

A 

SNR 

R*4 

LOC 

Scatter  conponent  SNR  in  dB. 

TDIFF 

R*4 

GLO 

Noraalized  relative  delaw  between  lower  and 

upper  beaM. 

TEMPA 

R*4 

ARG 

Average  relative  deiaw  of  scatter  conponent. 

TSCAT 

R*4 

LOC 

Norealized  relative  delaw  of  scatter  coMPonent. 

TZ 

R*4 

LOC 

Tnterferer  norealized  delaw  difference  on  two 

• 

antennas • 

TO 

R*4 

LOC 

Norealized  sampling  tiee  for  AFE  center  tap. 

U 

R*8 

LOC 

iMplicit  diversitw  eigenvalues. 

• 

XDIFR 

R*4 

LOC 

Fraction  of  received  power  due  to  diffraction 

coeponent . 

XSCAT 

R*4 

LOC 

Fraction  of  received  power  due  to  scatter 

£ 

coeponent. 

Z 

R*4 

LOC 

Transforeed  Mean  tap  values. 

v;  j 

• 

i 
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CLIFIT 


DIFSNR 


ERRIO 


ERROR 


1  =  (not  allowed) 

2  =  AN/TRC-170  receiver  filter*  Also  means 
filter  is  a  Butterworth* 

IFILTX  1*2  GLO  Transmitter  filter  indicator* 

0  =  MD-918  transmitter  filter.  Also  means 
filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eaual  to  symbol  duration. 

1  =  AN/TRC-170  transmitter  filter.  Also  means 

filter  is  a  cascade  of  Butterworth  filter 
with  rectangular  impulse  response  filter 
of  duration  eaual  to  half  symbol  duration. 

2  =  (not  allowed) 


NPOLRX 

1*2 

GLO 

Number  of  poles  in  the  receive  Butterworth 

filter . 

NPOLTX 

1*2 

GLO 

Number  of  poles  in  the  transmit  Butterworth 

filter. 

PEAKAV 

R*4 

GLO 

Peak-to-averase  loss  due  to  RF  filtering 

in  dB. 

TEMPI 

R*4 

LOC 

99X  bandwidth  in  MHz. 

(Subroutine) 

outputs 

to 

F0R002.DAT  the  following  variables! 

ALFA 

R*4 

LOC 

Constant  in  user  defined  VOX  variability 

curve. 

BETA 

R*4 

LOC 

Constant  in  user  defined  90X  variability 

curve. 

CF 

R*4 

LOC 

Constant  in  user  defined  VOX  variability 

curve. 

CO 

R*4 

LOC 

Constant  in  user  defined  90X  variability 

curve. 

Cl 

R*4 

LOC 

Constant  in  user  defined  90X  variability 

curve. 

C2 

R*4 

LOC 

Constant  in  user  defined  90X  variability 

curve. 

(Subroutine) 

outputs 

to 

FOR002.DAT  the  following  variables! 

ASNR 

R*4 

ARG 

Median  and/or  yearly  average  value  of 
diffraction  path  SNR  in  dB. 

DLOSS 

R*4 

LOC 

Diffraction  pathloss  distribution. 

DSTSNR 

R*4 

GLO 

Standard  deviation  of  diffracted  signal 
long-term  SNR  distribution  in  dB. 

DIJPOML 

R*4 

LOC 

Ratio  of  diffraction  signal  on  upper  beam 

to  that  on  lower  beam  in  dB. 

QT 

R*4 

LOC 

Percentile  not  exceeded. 

RSL 

R*4 

LOC 

Received  signal  level  distribution  of 
diffraction  component  in  dBm. 

SNR 

R*4 

LOC 

SNR  per  bit  distribution  of  diffraction 
component  in  dB. 

SP 

R*4 

GLO 

Service  probability.  Default  is  .95. 

(Subroutine) 

outputs 

to 

F0R002.DAT  the  following  variables! 

I 

1*2 

ARG 

Error  number.  This  is  followed  by  the 
corresponding  error  message. 

(Subroutine) 

outputs 

to 

F0R002.DAT  the  following  variables! 

I 

1*2 

ARG 

Error  number.  This  is  followed  by  the 

corresponding  error  message. 


Jt 


UTPUT  VARIABLES 


0*1  Output  Variable  Definitions 
AVAIL  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 


I 

1*2 

LOC 

Section  of  diffraction  path  with  Fresnel 
zone  blockage. 

PLOSS 

K*4 

LOC 

Pathloss  distribution  of  diffraction  component 

QT 

R*4 

ARG 

Arras  containing  percent  of  tike  pathloss  is 
not  exceeded*  i.e.  tike  availabilits. 

SIG 

R*4 

LOC 

Standard  deviation  of  predicted  pathloss. 

VI 

R*4 

LOC 

Variabilits  distribution  about  reference 
pathloss  for  diffraction  component. 

Y 

R*4 

ARG 

Arras  containing  pathloss  variabilits 
distribution  about  the  aedian  in  dB. 

BERCAL  (Subroutine)  outputs  to  FGR002.DAT  the  following  variables! 

BERAV  R*4  LOC  Short  ter*  average  bit  error  rate* 

DSNR  R*4  ARG  Specular  component  SNR  in  dB. 

FCH1N  R*4  LOC  Fade  outage  per  call  minute. 

ID  1*2  LOC  Explicit  diversities  on  the  main  beam. 

ITOT  1*2  LOC  Total  number  of  explicits  diversities. 

JPOW  R*8  ARG  Interferer  power  density  in  dBe/Hz. 

JSR  R*8  ARG  Interferer  to  signal  power  ratio  in  dB. 

P  R*8  LOC  Error  rate  outage  threshold. 

PFO  R*8  LOC  Probability  that  bit  error  rate  exceeds 

threshold!  short  term  outage  probabilits. 

SNR  R*4  ARG  Mean  hourls  SNR  in  dB  at  which  outage 

probabilits  is  to  be  calculated. 

SIJM2  R*4  LOC  2  tiees  average  bit  error  probabilits  if  onls 

one  independent  diversits.  Otherwise 
1000-bit  block  error  probabilits. 

XTYPE  R*8  LOC  Outputs  the  string  identifsing  the  diversits 

tspe. 

BOTAC  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 

K1  1*2  ARG  Nueber  of  taps  in  forward  equalizer. 

TAC  R*4  ARG  Interferer  covariance  aatrix  calculated 

according  to  RF  filtering  specified  through 
IBM  and  JFILT  paraaeters. 

TAPU  R*4  6L0  Normalized  tapwidth  for  HD-918. 

Default  is  .5.  Range  is  0.2S  through  1.0 

BUTFIL  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 


FCUT 

R*4 

LOC 

Transmission  bandwidth  in 

MHz, 

FCUT1 

R*4 

LOC 

Cut-off  freouencs  for  the 

transmitter. 

FCUT2 

R*4 

LOC 

Cut-off  freouencs  for  the 

receiver. 

IFILRX 

1*2 

GLO 

Receiver  filter  indicator. 

0  =  HD-918  receiver  filter.  Also  leans 

filter  is  a  Butterworth  cascaded  with  a 
rectangular  impulse  response  filter  of 
duration  eoual  to  ssmbol  duration. 


APPENDIX  D 
OUTPUT  VARIABLES 


This  appendix  describes  all  variables  written  to  the  output  files* 
F0R002.DAT  and  SUNPAG.GUT.  In  the  following  descriptions  each  variable  is 
identified  by  type  and  where  it  caae  froe*  ie>  LOC  for  local*  GLO  for  global* 
ARG  for  ardunents* 


The  type*  for  variables  is  divert  as  three  characters* 


L*1 

1 

byte 

LOGICAL 

L*4 

4 

byte 

LOGICAL 

1*2 

2 

byte 

INTEGER 

1*4 

4 

byte 

INTEGER 

R*4 

4 

byte 

REAL 

R*8 

8 

byte 

REAL 

C*8 

8 

byte 

COMPLEX 

GLOBAL  VARIABLE  DICTIONARY 
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Y1 


Y900 


YNIN 


YZERO 


CAC  TXPULS 

/PATHGE/  R*4  TROCOH.INC 

Haximum  estimated  integration  length  in  Y-direction. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INTLIH  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS 

/CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 

curve  Y0(90)  for  DE  greater  than  or  eoual  900  Km. 

Used  only  when  I  CL I HE  is  2,  Used  to  compute  the 
eouation  for  the  Y0<90)  curve  fit. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
CLINIL  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

CLIFIT  OUTDAT 

/CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 
curve  Y0(90)  for  DE  eoual  to  DEMIN.  Used  only  when 
ICLIME  is  2.  Used  to  compute  the  eouation  for  the 
Y0(90)  curve  fit. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
CLIMIL  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

CLIFIT  OUTDAT 

/CURVE/  R*4  CURVE. INC 

User  supplied  value  for  90th  percentile  variability 
curve  Y0(90)  for  DE  eoual  to  0.  Used  only  when  ltl.IME 
is  2. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
CLIMIL  INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

CLIFIT  OUTDAT 
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WLT 


X21NCR 


X3INCR 

XANG(IO) 


XAVAR 


XBVAR 


XINCR 


XTRO 


XTRINC 


PSPJ  TPSPJ 

/SYSTRN/  RM  TROCOM.INC 

Rated  transmission  power  in  Watts.  Default  is  1000  W, 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA  • 

-  Used  but  not  changed  in  the  following  subprograms! 

OUTDAT  SUHPAG 

/NUHPAR/  R*4  NUHPAR. INC 

Step  increment  for  numerical  integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRC 

/NUHPAR/  RM  NUHPAR. INC 

Step  increment  for  numerical  integration. 

-  Used  but  not  changed  in  the  following  subprograms! 

AVG 

/HC0H4/  RM  NCOM.INC 

Interferer  azimuth  angles  in  degrees.  Default  is  0. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

INDATA 

-  Used  but  not  changed  in  the  following  subprograms! 

MOTS  OUTDAT 

/ANSWER/  RM  ANSWER.  INC 

Standard  deviation  of  past  ISI  for  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRC 

-  Used  but  not  changed  in  the  following  subprograms! 

POUTAG 

/ANSWER/  RM  ANSWER.  INC 

Standard  deviation  of  future  ISI  for  AN/TRC-170, 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRC 

-  Used  but  not  changed  in  the  following  subprograms! 

POUTAG 

/NUHPAR/  RM  NUHPAR.  INC 

Step  increment  for  numerical  integration, 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

TRC 

/RZ4/  RM  RZ4.INC 

Time  origin  for  transmit-receive  filter  impulse 
response  (TRFILT>»  ie»  X  is  TRFILT<X+XTR0> . 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  TXPULS 

/RZ4/  RM  RZ4.INC 

Sample  interval  for  calculation  of  transmit-receive 

filter  impulse  response  (TRFILT). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 

BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms! 


GLOBAL  VARIABLE  BICT IONARY 


Page 


UTL(NT) 


UTV(NT) 


VARAIS 


VARBIS 


VARISI 


VEIGV(20) 


WAVLEN 


WFH 


Arrau  of  transmit  antennas  horizontal  offsets  in 
meters. 

-  Possibly  siven  a  new  value  in  the  following  subprograms! 
ANTGEO  INBATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKBAT  LOOPS  OUTDAT  STPPAR  SUHPAG 

/PATHGE/  R*4  TROCOH.INC 

Arrau  of  transmit  antennas  longitudinal  offsets  in 

meters* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INBATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKBAT  LOOPS  OIJTBAT  SUNPAG 

/PATHGE/  R*4  TROCOH.INC 

Array  of  transmit  antennas  vertical  offsets  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INBATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKBAT  LOOPS  QUTOAT  SUNPAG 

/ANSWER/  R*4  ANSWER. INC 

Past  ISI  variance  for  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

/ANSWER/  R*4  ANSWER. INC 

Future  ISI  variance  for  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

/ANSWER/  R*4  ANSWER. INC 

Total  ISI  variance  for  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

-  Used  but  not  changed  in  the  following  subprograms! 

PAVERG 

/ANSWER/  R*8  ANSWER. INC 

Implicit  diversity  eigenvalues  for  AN/TRC-170. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
EIGV  TRC 

-  Used  but  not  changed  in  the  following  subprograms! 

AVG 

/SYSTRN/  R*4  TROCOH.INC 

Wavelength  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
INBATA 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTPAR  LOOPS  RGAIN  STPPAR  TGAIN 

/JAHPAR/  R*4  JAHPAR. INC 

Normalization  constant  for  FDH/FM  interference. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BWJAH 

-  Used  but  not  changed  in  the  following  subprograms! 


I 
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UDIST 


UFREQ 


UHITE 


UPISIH(30,3> 


URH(NR) 


URL (NR) 


URV(NR) 


UTH(NT) 


Units  of  snale  (des*  mrad). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTGEO  OUTDAT  SUNPAG 

/UNIT/  R*4  IODATA, INC 

Units  of  distance  (smit  nmi»  km ) . 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

INDATA  OUTDAT  SUHPAG 

/UNIT/  R*4  IODATA .INC 

Units  of  freouency  (GHz*  HHz). 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTGEO  INDATA  OUTDAT  SUHPAG 

/UNIT/  R*4  IODATA. INC 

Units  of  height  and  diameter  (ft*  m)» 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
UNITS 

-  Used  but  not  changed  in  the  following  subprograms! 

ANTGEO  OUTDAT  SUHPAG 

/NUHPAR/  R»4  NUHPAR.INC 

Solution  of  transcendental  eouation  for  each  value  of 
RSNRSN  and  bit  error  rate  threshold  of  interest  in 
AN/TRC-170  outage  probability  calculation. 

-  Used  but  not  changed  in  the  following  subprograms! 

POUTAG 

/PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  horizontal  offsets  from 

great  circle  plane  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  LOOPS  OUTDAT  STPPAR  SUHPAG 

/PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  longitudinal  offsets  in 

meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  LOOPS  OUTDAT  SUHPAG 

/PATHGE/  R*4  TROCOH.INC 

Array  of  receive  antennas  vertical  offsets  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

CHKDAT  LOOPS  OUTDAT  SUHPAG 

/PATHGE/  RM  TROCOH.INC 
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THETRF 

TLL 

T0DAY(9) 

TPAR(20) 

TRFILT ( 128) 

TROLOS<3) 

TRORSL(3) 

TSEP(3) 

TWOPI 

UANGLE 


INTLIH  LOOPS  LTCORR  SUHPAG 
/PATHGE/  R*4  TROCOM.INC 

Transmit  reference  horizon  elevation  in  radians* 

-  Possibly  given  a  new  value  in  the  following  subprograms* 
TRANSF 

/SYSTRN/  R*4  TROCOM.INC 

Transmitter  line  losses  in  dB*  Default  is  0  dB» 

-  Possibly  aiven  a  new  value  in  the  following  subprograms! 
INDATA 

-  Used  but  not  changed  in  the  following  subprograms* 

DIFSNR  OUTDAT  POWER  SUNPAG 

/TSTAHP/  Ltl  IODATA* INC 

Array  used  in  PDP-11  version  to  hold  date  as 

characters* 

-  Used  but  not  changed  in  the  following  subprograms* 

MAIN  OUTDAT  SUHPAG 

/ANSWER/  R*4  ANSWER. INC 

Timing  parameter  for  AN/TRC-170.  Calculated  when 

IOTINE  is  0. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
TRC 

/RZ4/  R*4  RZ4.INC 

Transmit-receive  filter  impulse  response* 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
BUTFIL 

-  Used  but  not  changed  in  the  following  subprograms! 

CAC  TXPULS 

/SUMP/  R*4  CURVE. INC 

Median  troposcatter  path  loss  in  dB  for  each  value  in 
ERFAC  distribution. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
POWER 

-  Used  but  not  changed  in  the  following  subprograms! 

SUHPAG 

/SUMP/  R*4  CURVE. INC 

Median  troposcatter  RSL  in  dBm  for  each  value  in  ERFAC 
distribution. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
POWER 

-  Used  but  not  changed  in  the  following  subprograms! 

SUHPAG 

/IODATA/  R*4  IODATA. INC 

Separation  between  transmit  antennas  in  meters. 

-  Possibly  given  a  new  value  in  the  following  subprograms! 
ANTGEO  INDATA 

/CONSTA/  Rt4  CONSTANTS. INC 

2  X  Pi  =  6.283185307. 

-  Used  but  not  changed  in  the  following  subprograms! 

LOOPS  RJCFCN  STPPAR 

/UNIT/  R*4  I0DA1 A. INC 
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TFAKY1 


TFAKY2 


TFAKY3 


TFAKY4 


THER 


THERRF 


THET 


THETAO 


STEPAB 

/STPCOM/  RM  STPCOM.INC 

Constant  for  common  voluae  integral  c*». 

-  Possibly  given  a  new  value  in  the  following  subprograms 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms* 

STEPY 

/STPCOM/  R*4  STPCOM.INC 

Constant  for  common  volume  integration* 

-  Possibly  given  a  new  value  in  the  following  subprograms 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms! 

STEPY 

/STPCOM/  R*4  STPCOM.INC 

Constant  for  common  volume  integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms! 

STEPY 

/STPCOM/  R*4  STPCOM.INC 

Constant  for  common  volume  integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms! 

STEPY 

/PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  receive  site  in 

radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  INTLIM  JAMCON  l.TCORR  MAIN  OUTDAT  POWER 

TRANSF 

/PATHGE/  R*4  TROCOM.INC 

Receive  reference  horizon  in  radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRANSF 

/PATHGE/  R*4  TROCOM.INC 

Radio  horizon  elevation  angle  at  transmit  site  in 

radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
INDATA  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 

DIFSNR  INTLIM  LOOPS  MAIN  OUTDAT  POWER  SUMPAG 

/PATHGE/  R*4  TROCOM.INC 

Scattering  angle  at  bottom  of  common  volume  in 

radians. 

-  Possibly  given  a  new  value  in  the  following  subprograms 
TRANSF  UNITCV 

-  Used  but  not  changed  in  the  following  subprograms! 


SUMPAG 


TRANSF 
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T0T0<20) 


TAPOUT 


TDIFF 


TEMPA(NCORHX) 


TERFAC(3) 


/I OUT/  R*4  I OUT • INC 

Arrau  of  sampling  times  (normalized  to  symbol 

duration)  for  calculation  of  short  term  AN/TRC-170 

performance. 

-  Used  but  not  changed  in  the  following  subprograms* 

TRC 

/PDATA/  LM  PDATA.  INC 

If  true>  the  siaulator  tap  values  are  output  to  the 

output  file*  F0R002.BAT,  Default  is  TRUE. 

-  Possibly  given  a  new  value  in  the  following  subprograms: 
INDATA 

-  Used  but  not  changed  in  the  following  subprograas. 

SUMPAG 

/MC0M4/  R*4  MCOM.INC 

Noraalized  tapwidth  for  HD-918.  Default  is  .5. 

Range  is  0.25  through  1.0 

-  Possibly  given  a  new  value  in  the  following  subprograas. 
INDATA  SIGIN 

-  Used  but  not  changed  in  the  following  subprograas* 

BOTAC  CAJI  CAKL  JAMCON  MAIN  MAT CO  OUTDAT 

/NUHPAR/  R*4  NUMPAR.INC 

Standard  deviation  of  saapling  tiaes  for  AN/TRC-170 

performance  calculations. 

-  Used  but  not  changed  in  the  following  subprograms* 

TRC 

/MC0M4/  R*4  MCOM.INC 

Noraalized  relative  delay  between  lower  and  upper 

bean . 

-  Possibly  given  a  new  value  in  the  following  subprograms* 

MDTS  POWER 

-  Used  but  not  changed  in  the  following  subprograms; 

DINT  MATCO 

/PDATA/  R*4  PDATA. INC 

Array  of  average  troposcatter  signal  delays  for  each 

beam  relative  to  straight  line  in  seconds. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
LOOPS 

-  Used  but  not  changed  in  the  following  subprograms; 

MAIN  POWER  SUMPAG 

/ERAD/  R*4  ERAD.INC 

The  three  values  of  ERFAC  when  NDIST  is  1. 

-  Possibly  given  a  new  value  in  the  following  subprograms; 
INOATA 

-  Used  but  not  changed  in  the  following  subprograms; 

MAIN 

/STPCOM/  R*4  STPCOM. INC 

Constant  for  common  volume  integration. 

-  Possibly  given  a  new  value  in  the  following  subprograms*. 
STPPAR 

-  Used  but  not  changed  in  the  following  subprograms; 
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DIVTYP 

1*2 

BLO 

Diversity  configuration  indicator*  Default 
is  O. 

DLR 

Rt4 

6LO 

Distance  fro*  receiver  to  radio  horizon* 

DLT 

R*4 

BLO 

Distance  fro*  transftitter  to  radio  horizon* 

DSTSNR 

R*4 

BLO 

Standard  deviation  of  diffracted  signal 
lons-tera  SNR  distribution  in  dB. 

ERF  AC 

R*4 

BLO 

Yearly  aedisn  value  of  effective  earth  radius 
factor  k  in  kiloneters*  Default  is  1.33. 

ERR 

R*4 

BLO 

Integration  resolution.  Default  is  .001. 

F 

R*4 

BLO 

Operating  freauency  in  Hz. 

FOUT 

R*4 

ARB 

Yearly  average  fr.de  outage  probability  per 
call  ftinute  for  each  bit  error  rate  threshold 
specified  and  2S/2F  and  28  diversity 
configurations . 

HCOM 

R*4 

BLO 

Effective  height  of  the  bottoft  of  the  coftaon 
voluae . 

HHIGH 

R*4 

BLO 

Effective  height  of  the  top  of  the  coaaon 
voluae. 

HLR 

R*4 

GLO 

Receiver  radio  horizon  elevation  above  sea 
level . 

HLT 

R*4 

BLO 

Transait  radio  horizon  elevation  above  sea 
level . 

ITER 

1*2 

GLO 

Nuaber  of  integration  cells  in  the  coaaon 
voluae  integration. 

JPOU 

R*8 

ARB 

Interference  signal  power  density  in  dBa/Hz. 

LNAHE 

1*2 

GLO 

Link  naae.  Transaitter  site  first*  receiver 
site  second.  Used  as  link  identifier  on 
output  files  F0R002.BAr  and  SUNPAG.OUT. 

LUNITS 

1*2 

BLO 

Integer  value  that  specifies  the  set  of  units 
reauested  by  the  user.  These  units  are  for 
path*  antenna  location*  angle*  and  freauency 
paraaeters.  Default  is  8. 

NACCU 

1*2 

BLO 

Paraaeter  used  as  truncation  point  for  coaaon 
voluae  integration  teraination.  Default  is  40 

NEUCL 

1*2 

GLO 

New  cliaate  type  character  string. 

NOW 

L*1 

GLO 

Array  used  in  PDP-11  version  to  hold  tiae  of 
day  as  characters. 

NPAG 

1*2 

LOC 

Page  nuaber. 

NT 

1*2 

BLO 

Nuaber  of  transait  ports. 

PSIREO 

R*4 

GLO 

Array  of  receiver  beaa  boresisht  elevations 
above  radio  horizon  in  radians*  ie*  angle  at 
which  each  antenna  is  aiaed  relative  to  the 
horizon.  PSIREO(l)  is  the  aain  receive 
antenna. 

PSITEO 

R*4 

BLO 

Array  of  transaitter  beaa  boresisht  elevations 
above  radio  horizon  in  radians*  ie*  angle  at 

which  each  antenna  is  sifted  relative  to  the 
horizon.  PSlTEO(l)  is  the  »sin  trsns»it 
antenna. 

Contains  elements  of  covariance  aatrix*  ie* 


QCORR  R*4 


BLO 
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s 

R*4 

GLO 

powers  and  correlations. 

Troposcatter  path  asweaetry  paraaeter. 

SCPARM 

R*4 

GLO 

Uavenuaber  spectrua  slope  paraaeter  H. 

STSNR 

R*4 

GLO 

Default  is  2,66, 

Standard  deviation  of  troposcatter  signal 

THER 

Rt4 

GLO 

lond-tera  SNR  distribution  in  dB. 

Radio  horizon  elevation  angle  at  receive 

THET 

R*4 

GLO 

site  in  radians. 

Radio  horizon  elevation  angle  at  transait 

THETAO 

R*4 

GLO 

site  in  radians. 

Scattering  angle  at  bottoa  of  coaaon  voluae. 

TODAY 

L*1 

GLO 

Array  used  in  PDP-11  version  to  hold  date  as 

TROLOS 

R*4 

GLO 

characters. 

Median  troposcatter  path  loss  in  dB  for  each 

TRORSL 

R*4 

GLO 

value  in  ERFAC  distribution. 

Median  troposcatter  RSL  in  dBa  for  each  value 

UANGLE 

R*4 

GLO 

in  ERFAC  distribution. 

Units  of  angle  (deg.  arad). 

UDIST 

R*4 

GLO 

Units  of  distance  (sail  naii  ka). 

UFREG 

R*4 

GLO 

Units  of  freauency  (OHzi  MHz). 

UNITE 

R*4 

GLO 

Units  of  height  and  diaaeter  (ft.  a). 

URV 

R*4 

GLO 

Array  of  receive  antennas  vertical  offsets. 

UTV 

R*4 

GLO 

Array  of  transait  antennas  vertical  offsets. 

TRC  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 

DAUX1  R*8  LOC  Implicit  diversity  eigenvalues  for  AN/TRC-170. 

ENMEAN  Rt4  GLO  Average  received  energy. 

PAVG  R*4  GLO  Short-tera  average  bit  error  rate  for  each 

sampling  tiae  and  short-tera  average  SNR. 

POUT  R*4  GLO  AN/TRC-170  outage  probability  and  average  bit 

error  rate  as  a  function  of  saapiing  tiaei 
short-tera  average  SNR  and  error  rate 
threshold. 


PYEAR 

R*4 

AR6 

Yearly  statistics.  PYEARdi.)  is  yearly 
outage  Probability  and  PYEAR(2i.)  is 
yearly  fade  outage  probability  per  call  ainute 
for  each  BER  threshold. 

SNOB 

R*4 

GLO 

Signal  to  noise  ratio  in  dB. 

SNRLOS 

R*4 

LOC 

SNR  loss  in  dB. 

TO 

R*4 

GLO 

Noraalized  saapiing  tiae  for  lower  beaa. 

TOTO 

R*4 

GLO 

Array  of  saapiing  tiaes  (noraalized  to  svabol 
duration)  for  calculation  of  short  tera 
AN/TRC-170  perforaance. 

VEIGV 

R*8 

GLO 

Iaplicit  diversity  eigenvalues  for  AN/TRC-170. 

X 

R>4 

LOC 

Error  rate  threshold. 

TRCIN  (Subroutine)  outputs  to  F0R002.DAT  the  following  variables! 

BW99  R*4  LOC 

CDUR  R*4  GLO  Duration  of  transaitted  pulse  for  AN/TRC-170 

noraalized  to  signaling  interval  duration. 
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IPULS 

1*2 

GLO 

Switch  to  indicate  whether  pulse  shape  at 
input  of  the  AN/TRC-170  detector  includes  the 
effects  of  RF  filters  (IPULS  =  2)  or  not 
(IPULS  =  0  or  1).  Set  to  2 

NCHIP 

1*2 

GLO 

Nuaber  of  chips  in  PH  seouence  used  to  expand 
bandwidth  in  AN/TRC-170. 

NDIVS 

1*2 

GLO 

Nuaber  of  explicit  diversity  channels  for 
AN/TRC-170.  F.eual  to  4  for  2S/2F  and  2  for 

2S  or  2F. 

PEAKAV 

R*4 

GLO 

Peak-to-averade  loss  due  to  RF  filtering  in  dB 

X 

R*4 

LOC 

2*sisaa  aultipath  spread/swabol  interval. 

TROPO  (Prosraa)  outputs  to  FSR002.DAT  the  following  variables: 


MRAD 

1*2 

GLO 

Loop  liait  for  MRAD. 
(MRAD  is  1  for  MPIST 
MDI8T  =  1). 

Default 
*  0  and 

is  1. 

MRAD  is  3  for 

NOW 

L«1 

GLO 

Array  used  in  PDP-11 
day  as  characters. 

version 

to  hold  tiae  of 

NRAD 

1*2 

GLO 

ERFAC  indicator  and 
is  1 . 

loop  counter.  Default 

TODAY 

L*1 

GLO 

Array  used  in  PDP-11 
characters. 

version 

to  hold  date  as 
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A50FCC . 8-4 
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BNJAM . 8-8 
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. . 6-5 

DEIND . . . 7-6 

. . 5-9 

. . 6-6 

DIFSNR . 6-7 

DINT . 9-14 

EIGEN . 9-16 

EIGV . 10-5 

ELHES . . . 9-17 

ENRGF . 8-11 

ERFC . . . 5-10 

ERLANG . 9-18 

ERRIO . . . 3-5 

ERROR . 4-4 
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FCCHSK . . 

FFT . 8-13 

FRQSEP . 5-11 

FUNBW  . . 8-14 

FUNJAH . 8-16 

GPATT . 5-12 

HORANG . 5-13 

HQR . 9-19 

INDATA . . . 3-6 

INTERS . .  ,  .  .  8-17 

INTERD . 10-7 

INTERP . . 6-10 

INTLIM . . 

JANCOH . 9-20 

LOOPS . 5-17 

LTCORR . 5-22 

NATA . , . 9-22 

HATCO . 9-23 

MDIF . 6-11 

NDTS . 9-26 

NINO . 9-29 

ORDER . 9-30 

OUTDAT  . . . . 3-16 

P2INT . 10-8 

PAVERG . 10-9 

PDF . 10-10 

PDFCOE  . . 10-11 

PDFCON . .  ,  9-31 

PDFSUM . 10-12 

PEAK . 8-18 

POUTAG . 10-13 

POWER . 5-24 

PROFIL . 10-15 

PROUT . 9-32 

PSINE . 9-34 

PSPEC . 8-19 

PSPEC1 . 8-20 

PSPEC2 . 8-21 

PSPJ . 8-22 

PWRSPC . 9-35 
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RGA1N . 5-31 

RIPROF . 5-32 

RJCFCN . 9-36 

RTNI . 8-24 

SAMPLE . 8-25 

SASEQ . 9-37 

SEARCH . 8-26 

SECTOR . .  .  3-25 

SIGIN . 9-38 

SIM . 11-2 

S1NC . 9-40 

SPEC . 8-28 

SPEC1 . 8-29 

SPEC2 . 8-31 

SQTMAT . 9-41 

STEPAB . 5-33 

STEPY . 5-34 

STPPAR . 5-35 

SUBID . 4-5 

SUMPAG . . . 11-4 

TANGL . 6-13 

TGAIN . 5-37 

TIMAVG . 10-16 

TIMEQL . 10-17 

TIMPAR . 10-18 

TPSPEC . 9-42 

TPSPJ  .  .........  9-43 

TRANSF . 5-38 

TRC . 10-19 

TRCIN . 10-23 

TRLOSS . 5-41 

TROPO . 2-3 

TSINC . 9-45 

TXPULS . 10-26 

UNITCV . 3-26 

UNITS . 3-31 

VARPOL . 7-7 

. . 10-28 

VDECAL  . . 7-8 

XNOR . 9-46 

TINT . . . 7-9 
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